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PREFACE 


MANUAL OBJECTIVES 


This manual contains detailed information about the FORTRAN~-77/RT-11 
Object Time System (OTS) not contained in the PDP-1l1 FORTRAN-77/RT-11 
User's Guide. The information is not needed for typical use of 
. FORTRAN=77; however, many users need to know more about the OTS for 
specialized applications. This manual is especially helpful to 
programmers interfacing MACRO-11 and FORTRAN routines to the OTS. 


INTENDED AUDIENCE 


This manual assumes that the readers know MACRO and FORTRAN and are 
familiar with the information in the PDP-1l FORTRAN-77/RT-ll User's 
Guide, the RT-11 Software Support Manual, and the RT-1ll Programmer's 
Reference Manual. 


Internal OTS interfaces are not guaranteed to remain constant across 
releases of FORTRAN-77/RT-11. Calling the OTS the same way as the 
compiled code is called and using the OTS named offsets ensure as much 
release-to-release compatibility as possible. 


STRUCTURE OF THIS DOCUMENT 
This manual contains nine chapters and four appendixes. 


@® Chapter 1, "Object Time System Overview," provides a 
conceptual view of the structure of the OTS. 


@® Chapter 2, "Conventions and Standards," describes the calling 
sequences and naming conventions used by FORTRAN-77. 


® Chapter 3, "Assembly Language Interfaces to the ots," 
describes how to write MACRO-11 programs that interface with 
the OTS. 


@® Chapter 4, "Data Structures and Storage," describes the OTs 
work area and logical unit control table. 


@® Chapter 5, "Overview of FORTRAN Input/Output," provides a 
conceptual view of OTS I/O processing and describes the 1/0 
modules employed. 


® Chapter 6, "I/O Support," addresses the specifics of 
FORTRAN-77 input/output -~ OPEN, CLOSE, READ, WRITE and other 
operations. 


PREFACE 


Chapter 7, "Format Processing and Format Conversions," 
describes the internal form of format specifications, the 
format processing algorithm, and the Format conversion 
routines. 


Chapter 8, “Error Processing and Execution Control," discusses 
execution control processing, the detection and processing of 
run-time errors, and the generation of error messages. 


Chapter 9, “Other Compiled-Code Support Routines," describes 
routines that support various arithmetic and housekeeping 
operations required by the compiled code. 


Appendix A, "FORTRAN Impure Area Definitions," shows the 
layout of the OTS work area described in Chapter 4. 


Appendix B, "FORTRAN Logical Unit Control Block Definitions," 
describes the data structures used in OTS I/O processing. 


Appendix Cc, "OTS Size Summary," provides the approximate sizes 
of all the OTS modules. 


Appendix D, "Program Section Descriptions," describes the 
program sections (PSECTs) used by the OTS. 


ASSOCIATED DOCUMENTS 


The following documents provide related information: 


PDP-11 FORTRAN-77/RT-11 User's Guide 
PDP~1i FORTRAN-77 Language Reference Manual 
RT-11 System User's Guide 

RI-11 Software Support Manual 

RI-11 System Utilities Manual 

RT-11 Programmer's Reference Manual 


CONVENTIONS USED IN THIS DOCUMENT 


The manual follows these conventions: 


Unless otherwise noted, numeric values are represented in 
decimal notation. Values in MACRO-11 examples are in octal 
notation. 


Unless otherwise specified, all commands end with a carriage 
return, 


The name FORTRAN-77 in the manual refers to PDP-11 
FORTRAN~-77/RT=11, unless otherwise specified. 


vi 


CHAPTER 1 


OBJECT TIME SYSTEM OVERVIEW 


The FORTRAN-77 Object Time System (OTS) consists of assembly language 
modules that complement the user's compiled code. Most of the OTS 
routines are independent of the RT-ll operating system. However, 
certain routines access system functions by using RT-11 Programmed 
Requests. These calls are the same ones available to a MACRO 
programmer, and are described in ‘the RT-11 Programmer's Reference 
Manual. They usually concern the performing of input/output 
functions, file management, and job control. 





The OTS has five main parts: 


1. Tables, buffers, and impure storage that the OTS routines 
need 


2. 1/0 processing routines 

3. Job control and error-processing routines 

4. Mathematical functions and system subroutines 
5. Other compiled-code support routines 


The rest of this chapter introduces each of these parts. 


1.1 TABLES, BUFFERS, AND IMPURE STORAGE 


The OTS uses data areas that include read-only constants, logical unit 
control tables, various buffers, and the impure storage area. Chapter 
4 describes these data areas. 


1.2 1/0 PROCESSING ROUTINES 


The I/O processing routines are a collection of small modules. Only 
those modules required by a given FORTRAN source program need to be 
linked into-the user's job. 


Chapters 5 and 6 describe the I/O system design and the I/O routines 


involved with file management support. Chapter 7 contains information 
on format processing routines. 
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OBJECT TIME SYSTEM OVERVIEW 


1.3 JOB CONTROL AND ERROR PROCESSING ROUTINES 


For every FORTRAN main program, the compiler inserts a call to ors 
initialization. You can control program termination by using the 
USEREX subroutine to set up a procedure that is called when a program 
terminates. 


When the OTS detects an error, it executes a TRAP instruction with the 
error number .in the low byte of the instruction. A service routine 
within the error-processing modules handles floating-point processor 
asynchronous traps. 


There are two methods of error recovery: an 'ERR=' transfer within an 
I/O statement, or a return to the error site for appropriate action. 
A byte in the OTS impure storage determines which action to take. 
Each defined error number corresponds to an error control byte that 
you can access using the FORTRAN=-callable subroutines ERRSET, ERRTST, 
and ERRSNS. 


For more information on these subroutines, see Chapter 8. 


1.4 MATHEMATICAL FUNCTIONS AND SYSTEM SUBROUTINES 


The FORTRAN-77 User's Guide describes how to use special names to call 
Mathematical routines from compiled code. These routines are commonly 
known as processor-defined functions. Appendix B of the User's Guide 
describes the algorithms for these mathematical library routines. 


Appendix D of the User's Guide describes the system subroutines. 


1.5 COMPILED~CODE SUPPORT ROUTINES 


These routines complement the compiled code by performing operations 
too complicated or cumbersome to perform with in-line code, such as 
array subscript checking, exponentiation, character assignment and 
comparison operations, and complex arithmetic. 


For more information on these routines, see Chapter 9. 


CHAPTER 2 


CONVENTIONS AND STANDARDS 


FORTRAN-77/RT-11 has specific procedural and naming conventions. The 
following sections describe those conventions. 


2.1 REGISTERS 


The eight [processor general registers] are referenced as follows: 


@® RO - R5 = Registers 0-5 
® SP = Register 6 
® PC = Register 7 


The six floating-point processor accumulators are referenced as FO-F5. 


2.2 CALLING SEQUENCES 


FORTRAN-77 compiled code uses the following four calling sequence 
conventions to call components of the OTS: 


1. RS Calls -- for all system subroutines, most 
processor-defined functions, and all user-routine calls 

2. PC Calls -- for I/O operations, system-dependent routines, 
and character assignment and comparison operations 

3. R4 Calls ~- for out-of-line, stack-oriented arithmetic 
routines and certain compiled-code support routines 

4. FO Calls -- for faster calls to certain processor-defined 
functions 


The sections that follow describe these calls. 


2.2.L R5 Calls 


This calling sequence convention is the standard for PDP-11 
FORTRAN-77. 


CONVENTIONS AND STANDARDS 


Its basic form is: 


;IN INSTRUCTION-SPACE 


MOV #LIST,R5 ;Address of argument List to 
zregister 5 
JSR PC,SUB ;Call subroutine 


7IN DATA-SPACE 


LIST: -BYTE N,0 ;Number of arguments 
»WORD ADR1L 3;First argument address 
~WORD ADRN ;N'th argument address 


The argument list must reside in data-space and, except for label type 
arguments, addresses in the list must also refer to data-space. 


User programs should not reference the byte at address LIST+1. It is 
reserved for future use by DIGITAL software; thus, references to it 
could cause unpredictable results. 


Control returns to the calling program by restoring (if necessary) the 
stack pointer (SP) to its value on entry and executing an RTS PC 
instruction. 


Function subprograms return a single result in’the processor general 
registers. The type of variable returned by the function determines 
which registers receive the result. The variable types and their 
associated register assignments are shown in Table 2-1. 


Table 2-1: Register Assignments for Subprogram Results (R5 Calls) 








If the 
Result Type Is: The Result Is in: 
INTEGER* 2 
LOGICAL*1 RO 
LOGICAL*2 
INTEGER* 4 RO -- Low-order result 
LOGICAL* 4 Rl -- High-order result 
REAL RO -- High-order result 
Rl -- Low-order result 
DOUBLE RO -- Highest-order result 
PRECISION RL 
R2 
R3 -- Lowest-order result 
COMPLEX RO -- High-order real result 
R1 -- Low-order real result 
R2 -- High-order imaginary 
result 
R3 -- Low-order imaginary result 


CONVENTIONS AND STANDARDS 


Calling programs use RO through R5 to save values needed after a 
return from a subprogram. The argument list pointer value in register 
R5 may not be valid after return. Calling programs must save and 
restore the floating-point registers they use, and they cannot assume 
that the called routines will restore the floating-point status bits 
I/L (integer/long integer) or F/D (floating/double precision). 


An address of -1 (177777 octal) represents a null argument in an 
argument list. Tt is used to ensure that using null arguments in 
subprograms that cannot handle them will result in an error when the 
routine is called. The errors most likely to occur are illegal memory 
references and word references to odd byte addresses, 


For more information about this calling sequence convention, see the 
PDP-11 FORTRAN-77/RT-11 User's Guide. 


2.2.2 PC Calls 
PC calls are made with a JSR PC,xxx instruction. They pass all 
arguments on the stack and return with the arguments deleted from the 


stack. There are no changes to registers RO-R5, FO-F5, or the FPP 
Status register. 


PC calls are used for the following operations: 
® All I/O statements except OPEN and CLOSE 
@ STOP, PAUSE, computed GO TO, and assigned GO TO statements 


@® Character out-of-line support routines for assignment and 
comparison 


@e Array subscript checking, if enabled 
Example: 
The FORTRAN statement 
REWIND 3 
is compiled into the code 


MOV #3,-(SP) ;Unit number 
JSR PC, REWIS ;REWIND processor 


2.2.3 R4 Calls 


This convention is used for out-of-line, stack-oriented arithmetic 
routines and other compiled-code support. These routines receive 
argument values on the stack, or a pointer to an argument value as an 
in-line argument immediately following the call. They delete the 
stack arguments and return a value on the stack. This type of routine 
is called by a JSR R4,xxx instruction. R4 calls modify the FPP status 
register and registers FO-F5 and RO-R4, but preserve R5. Chapter 9 
describes the modules that use this convention. 


CONVENTIONS AND STANDARDS 


Example: 
The FORTRAN statement 
X=A**T 
is compiled into the code 


MOV A+2,- (SP) ;Push A 

MOV A,-(SP) 

JSR R4, PWRICS ;Compute A**I 
~WORD I tAddress of I 
MOV (SP)+,X 7;Store at X 
MOV (SP)+,X+2 


2.2.4 FO Calls 


Commonly used processor-defined functions use this convention. It 
sets the FPP F/D status bit to the type of argument and loads the 
argument into FO. A JSR PC,xxx instruction calls this routine. Tt 
returns a result in FO and preserves the FPP F/D status bit, but does 
not preserve registers RO-R5, F1-F5, and the FPP I/L status bit. The 
functions that use FO calls are named $$xxxx, as shown in Table 2-2. 


Table 2-2: Processor-Defined Functions 








Name Function 

SSSIN Real sine 

SSDSIN Double-precision sine 

SSSQRT Real square root 

SSDSOR Double-precision square root 
SSATAN Real arctangent 

SSDATN Double-precision arctangent 
$$cos Real cosine 

$$DCOs Double-precision cosine 


$$ALOG Real logarithm (base e) 
$$DLOG Double-precision logarithm (base e) 


S$ALG1 Real logarithm (base 10) 
$$DLG1 Double-precision logarithm (base 10) 


SSEXP Real exponential (base e) 
SSDEXP Double-precision exponential (base e) 
SSTAN Real tangent 


SSDTAN Double-precision tangent 





CONVENTIONS AND STANDARDS 


Example: 
The FORTRAN statement 
Y = SIN(X) 


is compiled into the code 


SETF rset FPP mode 
LDF X,FO 

JSR PC,$$SIN 

STF FO,Y 


2.2.5 Special Call Conventions 
The following are exceptions to the four general calling conventions: 


@® OPEN (OPENS) and CLOSE {(CLOSS$) statements use the R5 
convention with a special argument list encoding. 


® Run-time format compilation (FMTCV$) uses a PC call but 
returns a stack result for use in a subsequent 1/0 
initialization call. 


@® Adjustable array initialization calls (MAK1$, MAK2$, MAKNS, 
and MAKV$) use a PC call but preserve only R5. 


@® Traceback name initialization (@SNAM$) uses a co-routine call. 


@ Virtual array processing ($VRTxy) uses a PC call that 
preserves all registers except RO. 


@ Job initialization (S$OTI) uses a PC call that does not 
preserve the registers. 


® The intrinsic function INDEX uses the R5 convention, but the 
addresses in the list point to 2-word (length, address) 
descriptors of the argument. 


See the corresponding module descriptions in other chapters for more 
details on these special variants. 


2.3 LABELING CONVENTIONS 


The labels of OTS routines begin with a $ and are followed by the name 


or a contraction of the name. All external entry point names contain 
a $ as either the first or last character. 


2.4 CONTEXT SAVE AND RESTORE 


The calling sequence determines the OTS register context conventions. 
See Section 2.2. 


Internal OTS calls use various conventions. In general, the calling 
routine saves those registers it requires. Registers not mentioned in 
the OTS routine descriptons are saved. 


CHAPTER 3 


ASSEMBLY LANGUAGE INTERFACES TO THE OTS 


Chapter 2 describes how the compiled code that is output from your 
FORTRAN-77 source program compilation interfaces with the OTS. You 
also can write MACRO-11 programs that interface with the OTS. This 
chapter summarizes how you can set up that interface. 


3.1 WRITING A FORTRAN MAIN PROGRAM IN ASSEMBLY LANGUAGE 


The following MACRO-11 code represents a hypothetical FORTRAN main 
program: 


START:: 


JSR Pc, OTIS Initialize the OTS and file management 


system 


mo we 


e 


MOV #*R<IN.>,-(SP) 
MOV #°R<.MA>, R4 
JSR R4, @SNAMS 


Last 3 letters of name in RADIX-50 
First 3 letters of name in RADIX-50 
Initialize traceback chain if desired 


ms Se Ne 


JSR PC, EXITS 
-GLOBL $OTSVA 
-GLOBL RCIS 
-GLOBL LCI$ 
-GLOBL IcIs 

-END START 


Close files and exit 

Link in the impure area 

Floating point format conversions 
Logical format conversions 
Integer format conversions 


we No So Ne Ne 


Notes: 


lL. The call to OTI$ initializes the FPP (SFPA$S). 


~ 


2. The reference to $OTSVA loads the FORTRAN impure storage 
area. 


3. The references to the FORMAT conversion routines are needed 
only if the desired conversion routine is required. (Note 
that a FORTRAN subprogram that contains a FORMAT statement 
contains the required FORMAT conversion references.) 
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3.2 LINKAGE TO THE FORTRAN IMPURE STORAGE AREA 


The FORTRAN impure storage area defines a global symbol SOTSVA, which 
is referenced by the compiled code in FORTRAN main programs. Note 
that subprograms do not reference this symbol. When the linker 
processes a reference to $OTSVA, it loads the FORTRAN impure area and 
defines global symbol $OTSV in the job that contains the address of 
the symbol SOTSVA. All FORTRAN OTS routines obtain the address of the 
impure area by referencing the Location $OTSV. 


CHAPTER 4 


DATA STRUCTURES AND STORAGE 


The OTS maintains two major areas of impure storage: the work area 
and the logical unit control table. This chapter describes those two 
areas. 


4.1 WORK AREA STORAGE DESCRIPTION 


The work area contains job-specific data, such as address pointers, 
and information about the currently active operation, such as a direct 
access record number. 


For example, the work area contains: 


@ Named offsets -- The named offsets make up the first 113 words 
of the work area and have names of the form W.xxxx Of XXXXXX. 
There are both word and byte offsets, and some of the offsets 
have an associated global symbol name. 


@® Error message text buffer -- The buffer for the error text 
message line is 70 bytes. The offsets W.ERLN (start address) 
and W.ERLE (end address+l) point to the buffer. 


@ Error control table -- The error control table is 128 bytes, 
with one byte for each error. The error control table is an 
impure data area that the error-handling routines use and 
manipulate. The job initialization routine OTIS copies a 
prototype version of the table into this area. The offset 
W.ERTB points to this table. 


@ Window block -- An 8-word address mapping window block is used 
by the virtual array processing routines. The virtual array 
initialization routine SVINIT initializes this window block. 
The offset W.WDB points to this window block. 


In this section, the named offsets are organized into functional 
groups and described in Tables 4-1 through 4-8. The functional groups 
and their corresponding tables are as follows: 


Job control - Table 4-1 
I/O control - Table 4-2 
Format control 7 Table 4-3 
Run-time format ~ Table 4-4 
control 

Error control = Table 4-5 
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Error message and ~ Table 4-6 
traceback control 
Virtual array control = Table 4-7 


Trap routines - Table 4-8 


Table 4-1: Job Control Information 





Global Description Global Name Default 
Symbol 





EXADDR Address of USEREX routine or 0 


W.ACPT Logical unit number for ACCEPT SACCPT 5 
statements 


W.BEND High address+l of the user 
record buffer 


W.BFAD Start address of the user record 
buffer 
W.BLEN Length of the user record 133 


buffer; computed at job 
initialization time and equal 
to W.BEND - W.BFAD 


W.DEV Start address of the logical unit 
control table 


W.DEVL The high address+l of the 
logical unit control table 


W.END Last word of named offsets 
W.EXST Exit with status value 


W.FNML Maximum length of file name SMXFNL 80 
strings nonblank characters 


W.FPPF FP-ll flag byte; 0 if FP-11 
present, 1 if not 


W.LIMT Address of a .LIMIT directive 


block 

W.LNMP Number of valid negative unit 4 
numbers 

W.LUNS Number of valid logical units -NLUNS 

W.PRNT Logical unit number for PRINT SPRINT 6 
statement 


(continued on next page) 
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Table 4-1 (Cont.): Job Control Information 








Global Description Global Name Default 

Symbol 

W. READ Logical unit number for READ $READ 1 
statement 

W.SKLM Job's current stack overflow 

W.SST Limit address of the SST 
table 

W.TYPE Logical unit number for TYPE $TYPE 5 
statement 





Table 4-2: 1/0 Control Information 





Global Description 





Symbol 

BLBUF Address of next data byte in current 1/0 
. record 

CHNATB Address of Channel Table 

COUNT Length of array in an I/O list 

DENCWD Maximum number of I/O records or 0 if no limit 

DEVHDR Address of lowest device handler 

ENDEX Address of END= statement or 0 

ENMLNK Pointer to last name on entry names queue 

EOLBUF End address+l of current I/O record 

ERREX Address of ERR= statement or 0 

FILETB Address of first Logical Unit Control Table 

(LUB) 

FILPTR Address of active LUB or 0 

FMTAD Current pointer into format string 

FMTCLN Value of SP on entry to I/O processing 

FREESP Pointer to free memory 

ITEMSZ Size in bytes of current I/O list element 

PLNBUFP Start address of current I/O record 


{continued on next page) 
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Table 4-2 (Cont.): I/O Control Information 

















Global Description 

Symbol 

QELEM Address of queue element flag 

RACNT Number of data bytes remaining in current I/O record 

RECIO Address of record=processing I/O routine (GET or 
PUT) 

RTCNLS RT-11 channel-usage bitmap 

UNCNT Number of data bytes remaining in record segment 

UNFLGS Segmented record control word 

VARAD Address of current I/O list element or 0 

W.EXT Co-routine address of current I/O element processing 
routine 

W.FDBL Pseudo I/O control block for ENCODE/DECODE and 
internal files (word 1) 

W.FDB2 Pseudo I/O control block for ENCODE/DECODE and 
internal files (word 2) 

W.FPST FP-l1l status register at I/O entry 

W.OPFL Count of errors during OPEN or CLOSE statement 
processing 

W.RECH High-order direct access record number 

W.RECL Low-order direct access record number 

W.VTYP Data type code of current I/O list element 

Table 4-3: Format Control Information 

Global Description 

Symbol 

D Decimal fraction width of current format item 

DOLFLG Dollar sign format flag for the current I/0 
record 

FMTAD Address of current format byte 

FMTLP Infinite format loop flag 

FMTRET Address in format for format reversion 


(continued on next page) 
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Table 4-3 (Cont.): Format Control Information 


Po aE nnEn EERIE oreeaemeennneneateeeeneneennmnnmmmmmninanneell 


Global Description 

Symbol 

ee 

FSTK Base of 16-word stack for format parenthesis 
nesting 

FSTKP Address in FSTK of current nesting level 

LENGTH Field width of current format item 

PSCALE P format value 

REPCNT Repeat count of current format item 

TSPECP Highest address used in current I/O record 

TYPE Current format code 

W.CPXF Complex data item flag: l=real part; O=not 
complex; <-l=imaginary part 

W.DFLT Current default format code or 0 

W.ELEM Flag indicating data element has been 
processed 

W.NULL Flag indicating a slash separator character 
was seen during list-directed input processing 

W.PLIC Address in list-directed data value control 
block of current data value 

W.PNTY Variable format expression flag byte 

W.RS Saved RS value for variable format expressions 

W.SPBN The SP/SS, BN/BZ, and T format flags 


<creweesararnamaramannmnaenmenancnnrneemermrrrtsiinisssieemetetlntttAi— ET 
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Table 4-4: Run-Time Format Control Information 








Global Description 

Symbol 

NOARG Number of arguments required by current format 
code . 

NUMFLG Current numeric value 

PARLVL Current[parenthesis] level 

W.OBFH End address. +1 of run-time format buffer 

W.OBFL Start address of run-time format buffer 





Table 4-5: Error Control Information 








Global : Description 

Symbol 

W.ECNT Job error limit count, global name: SERCNT 
W.ERNM Last error number or 0 

W.ERTB Start address of error control table 

W.ERUN Logical unit number of last I/O error or 0 
W.FERR Privacy I/O error code of last I/O error or 0 
W.FERL eee I/O error code of last I/O error or 
W.IOEP Special I/O error processing flag 

W.PC PC value of FP-11l errors 





Table 4-6: Error Message and Traceback 
Control Information 





Global Description 

Symbol 
a a a eee 
W.ERLE End address+l of error message text buffer 

W.ERLN Start address of error message text buffer 

W.NAMC Traceback chain list head, global name: $NAMC 
W.SEQC Traceback current statement number, global 


name: $SEQC 
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Table 4-7: Virtual Array Control Information 








Global Description 

Symbol 

W.WDB Address of window block for mapping 
W.WNHI Current high-window address+l 
W.WNLO Current low-window address 





Table 4-8: Trap Routine Information 





Global Routine Whose 
Symbol Address Contained 
W.ERXT SERXIT 
W.ERLG SERRLG 
W.FIN SEXIT 
W.FPER $FPERR 
W.NAM NAMS 
W.IOXT ~ SIOEXIT 


4.2 LOGICAL UNIT CONTROL TABLE 


The logical unit control table contains a block of storage for each 
logical unit allocated to the FORTRAN OTS. Each block contains all 
the information that the OTS requires to perform I/O to the associated 
unit. 


FORTRAN I/O is performed either with logical units, or through RT-11 
channels and calls to SYSLIB. The logical unit method is best suited 
for applications requiring sequential I/O. 


The sections that follow describe the LUB symbolic names and their 
use. Appendix B contains the offset values for each symbolic name. 


4.2.1 LUB Definitions 


Each logical unit has a LUB allocated dynamically when a job is 
executed. There is one LUB allocated for each unit declared in the 
compiler's /N:m or /UNITS= qualifier (if neither the /N nor. the 
/UNITS= qualifier is not specified, the default value is six logical 
units). Each LUB is a fixed-length block consisting of 20 decimal 
16-bit words. At job initialization time, each LUB is set to 0. A 
close operation also sets each LUB to 0. 
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Offsets of the form D.xxxx and xxxxxx describe portions of each LUB, 
as follows: 


ASSOCV ~- Address of associated variable 
BLKNO == Current block number 

BUFNO -- Number of buffers, one byte 
BUFRAD -- Address of start of buffer 
BUFRSZ -~ Size of buffer in words 


CHNLNO ~-- Channel number, one byte 

DATAD -- Address of data pointer 

DEVNM -~- Device name (RAD50) 

FILNM -- File name (RAD50), two words 

FILSZ -- Number of blocks for file creation 
EXTEN -~ File type (RAD50) 

HIGHBL -- Highest block number written 


RECMAX ~~ Number of records in file 


RECSZ --~ Record size 

D.FDB -- status word 0 (see below) 

D.STAT -~ status word 1 (see below) 

D.STA2 ~- status word 2 (see below) 

D.RCNM -- direct access record limit (low order) 
D.RCN2 -- direct access record limit (high order) 
D.RCCT ~-— record count for BACKSPACE (low order) 
D.RCC2 -- record count for BACKSPACE (high order) 


D.AVAD -— address of associated variable address or 0 
D.RSIZ -- maximum record length 


Several of the words have different uses depending upon the kind of 
I/O operation. 7 


Each LUB contains three status words; 0D.FDB, D.STAT and D.STA2. The 
bits in these status words have symbolic names of the form DV.xxx or 
“¥KxxxXx. These bits are defined as follows: 


Status Bits used in D.FDB 








Symbol Value Description 
BUFBIT 1 Double buffering flag bit 
EOF 10000 End of file reached 

KB 20000 File open to KB 
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Status Bits used in D.FDB (cont.) 





Symbol Value Description 

LISTMD 20 Force output for listing device 
LP 2000 File open to LP: 

LSTFMT 40 File is open for listing format 
MWRB 2 Modified random block flag 

OLD 400 ‘OLD' £lag for RT~11 SYSLIB 
OPNBIT 4000 ‘OPEN' flag for RT-11 SYSLIB 
RDBFWT 1000 Read before write 

RDO 100 "READONLY' flag for RT-11 SYSLIB 
SCR 4 'SCRATCH' flag for RT-1l SYSLIB 
TT 200 File open to console terminal 
UNLIST 10 Forced for FORTRAN output 


WRITE 100000 Writes have been performed on file 





Status Bits used in D.STAT 








Symbol Value Description 

DV. FIX 2 ‘Fixed-length records 

DV.FNB 4 File Name Block initialized 

DV.DFD 10 Direct access unit 

DV.FAK 20 Partial LUB for ENCODE/DECODE and internal 
files 

DV. FACC 40 File attributes defined 

DV.OPN 200 Unit open 

DV.VAR 400 Variable-length Records 


DV.SEG 1000 Segmented Records 
DV.FMP 2000 Formatted unit 
DV.UFP 4000 Unformatted unit 
DV.ASGN 10000 File name defined 


DV.CLO 20000 Close in progress 


DV.FRE 40000 Free format prohibited (short field 
termination) 
DV.RW 100000 Input or output operation (0 = read, 1 = write) 
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Status Bits used in D.STA2 








Symbol Value Description 

DV.AI4 2 Associated variable is INTEGER*4 data type 
DV.RSZ 4 Explicit RECORDSIZE specified 

DV.CC 10 Explicit carriage control specified 

DV.SPL 20 DISP = 'PRINT' specified 

DV.DEL 40 DISP = 'DELETE' specified 


DV. RDO 400 READONLY specified 
DV.UNK 1000 TYPE = 'UNKNOWN' specified 
DV.OLD 2000 TYPE = 'OLD' specified 


DV.NEW 4000 TYPE 


i] 


‘NEW’ specified 
DV.SCR 10000 TYPE = 'SCRATCH' specified 
DV.APD 20000 ACCESS = 'APPEND' specified 
DV.SAV 40000 DISPOSE = ‘SAVE' specified 


DV.BN 100000 BLANK = 'NULL' specified 
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OVERVIEW OF FORTRAN INPUT/OUTPUT 


This section describes some of the independent I/0 modules and 
provides an overview of the I/O subsystem. Input/output support 
provided by PDP~11 FORTRAN-77/RT-1l uses the RT-11 file system. The 
I/O support modules in OTS reduce all input/output calls to RT-11 
programmed requests for logical block read or write functions. 
Special functions such as OPENing, CLOSing, REWINDing or writing 
ENDFILE marks are accomplished through other appropriate RT-11 
programmed requests. See Chapter 7 for descriptions of the 
format-processing routines. 


FORTRAN I/O processing consists of three layers or levels: 

@® Compiled-code interface 

® Data formatting 

@ Record processing 
The compiled-code interface level consists of the routines called 
directly by the compiled code. The routines (listed in Table 5-1) 
take the compiled-code arguments, transform them into OTS standard 
form, and pass them to the data-formatting level. 
The data-formatting level accepts the standard I/O arguments’ and 
produces I/O records as specified by the data elements and format 
control. Then the records are passed to or received from the next 
level ~- the record-processing level. 
The record-processing level interfaces with the file management 
systems to read and write logical records. It is the only level 
dependent on the RT-11 file system. 


Figure 5-1 illustrates the I/O subsystem. 
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COMPILED COMPILED-CODE I/O STATEMENT 
CODE READLN (1,X,ABC) 
oe 
1 x 
CODE INTEGER REAL STRING 
INTERFACE INITIALIZE VALUE VALUE ARRAY 
LEVEL TRANSMIT | TRANSMIT TRANSMIT 
DATA 
FORMATTING FORMAT PROCESSING 
LEVEL RECORD CONSTRUCTION 
RECORD RECORO 1/0 FOR 
PROCESSING FILE-ORIENTED 
LEVEL DEVICES 





. LOOKUP . READW 
. ENTER . WRITEW 
. DSTATUS . PRINT 


Figure 5-1: The I/O Subsystem 


5.1 COMPILED-CODE INTERFACE 


The compiled-code interface is the external interface for 


subsystem. 



















BOOLEAN — 
CONVERSIONS 
REAL 
CONVERSIONS 





the OTS 1/0 


I/O statements produce three types of subroutine calls in the compiled 


code: 


® Initialization calls -~ set up the I/O system for the specific 
I/O requested, open the specified logical unit if necessary, 


and declare the I/O system to be active 


@ Element transmission calls (if any) -- generate calls to the 


oTS for entities in the I/O list 


@ Termination calls -~- complete the I/O operation 


‘the I/O system inactive 


and declare 
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For example, the FORTRAN statements 


DIMENSION A(10) 
READ (2) I,A,8 


are compiled into the following code: 


MOV #2,-(SP) ;Unit number 

JSR PC,ISsus sInitialize READ 

MOV #1,-(SP) sAddress of I 

JSR PC,IOAIS ?Transmit integer 

MOV #ASADB,- (SP) ;Address of array descriptor for A 
JSR PC, IOAAS Transmit array A 

MOV #B,-(SP) ;Address of B 

JSR PC, IOARS$ ;Transmit real 

JSR PC,SEOLST 7End-of~list 


5.1.1 Initialization Processing 


There is a separate initialization-processing routine for each 
compiled FORTRAN I/O statement. These routines take the I/0 
statement-specific arguments, construct a mask word describing the 
Seema and pass them to the I/O statement initialization module 
INITIO. 


5.1.1.1 The Routines = Table 5-1 lists the entry point names for the 
initialization-processing routines. Each routine has two entry 
points: 

@ XXX$ -- for I/O statements that do not use END= or ERR= 


@ XXXE$ -- for I/O statements that do use END= or ERR= 


Table 5-1: I/O Initialization Entries 








Entry 

Name Arguments Function 

ISFS u,f£ ' Sequential formatted input 
ISFES u,f,e 

Isus u Sequential unformattted input 
ISUES u,e 

IRFS u,r,£ Direct formatted input 

IRFES u,xr,£,e 

IRuUS u,;r Direct unformatted input 
IRUES u,yr,e 

OSFS$ u,f Sequential formatted output 
OSFES u,f,e 

osus u Sequential unformatted output 
OSUES u,;e 
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ORFS u,r,£f Direct formatted output 
ORFES u,cr,f,e 
ORUS u,r Direct unformatted output 
ORUES u,r,e 
ENFS$ c,f,a ENCODE 
ENFES c,f£,a,e 
DEFS c,f,a DECODE 
DEFES c,f,a,e 
ISL$ u ‘List-directed input 
ISLE$ u,e 
OSLS u List-directed output 
OSLES u,e 
FDRS$ u,r Direct FIND 
FDRE$ u,r,e 
ENDFS$ u ENDFILE 
ENDFES u;s 
REWIS u REWIND 
REWIES u,s 
DEFFS$ u,;mr,rl,v,vft DEF INEFILE 
IIFS d,f Internal file read 
LIFES d,f,e 
IIFAS adb,f 
IIPFAES adb,f,e 
OIFS d,£ Internal file write 
OIFES d,f,e 
OIFAS adb,f 
OIPAES adb,f,e 
Arguments: . 

u Logical unit number ~-- INTEGER*2 value. 

r Direct access record number -- INTEGER*4 value. 

f Format specifier -- address of compiled format text. 

adb Address of the array descriptor block. 

e END=/ERR= specifier -- address of END= label, followed by 
address of ERR label. If one of the labels is missing, a 0 
address is supplied for that label. 

a ENCODE/DECODE buffer -- address of buffer. 

c ENCODE/DECODE buffer -- INTEGER*2 value. 

da Address of the character descriptor. The first word of the 
descriptor contains the length of the string; the second 
word contains the address of the string. 

s ERR= statement label address. 
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mr Maximum direct access record number -- INTEGER*4 value. 

cL Record length in 16=bit words -- INTEGER*2 value. 

v Address of associated variable. 

vf Associated variable data type Flag -- INTEGER*2 value 


encoded as follows: 


0 
-1 


INTEGER*2 data type 
INTEGER*4 data type 


NOTE 


If a run-time format is specified, the 
run-time format compiler FMTCV$ 
overwrites the source address of the 
run-time format array with the address 
of the compiled format string. 


5.1.1.2 SINITIO ~ The SINITIO routine performs specific functions 
based on the arguments passed by the initialization~processing 
routines described in Section 5.1.1.1. In addition, $INITIO paves the 
way for the remaining levels of processing by storing the appropriate 
data~formatting routine address in the impure area offset W.EXJ, and 
the appropriate record=-processing routine address in the impure area 
offset RECIO. 


As mentioned, the routines that pass arguments to SINITIO use a 
bit-encoded mask to indicate what operations need to be performed. 
When $INITIO is called, RO points to the stack arguments and Rl 
contains the bit-encoded mask. 


The symbols and argument masks used by the routines are described in 


Tables 5-2 and 5-3, respectively. Table 5-4 describes the operations 
SINITIO performs based on the bit settings. 


Table 5-2: I/O Initialization Symbols 





Symbol Value Description 

FL.ERR 100000 END=/ERR= present 

FL.INB 40000 Internal files passed by ADB 
FL.IND 20000 Internal files passed by descriptor 
FL.ENC 11000 ENCODE/DECODE statement 

FL.FMT 4200 Format present 

FL.REC 2400 Direct access record number present 
FL.FMP 200 Formatted operation permitted 
FL.WRT 140 WRITE operation (with implied OPEN) 
PL.RD 40 Read operation (with implied OPEN) 
FL.EDA 10000 ENCODE/DECODE buffer address 

FL. FMA 4000 Format address 

FL.RNM 2000 Record number 

FL.EDL 1000 ENCODE/DECODE buffer length 

FL.DIR 400 Direct access 

FL.OUT 100 Output operation 

FL.OPN 40 OPEN required 
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Table 5-2 (cont.): I/O Initialization Symbols 


err sr Niner 


Symbol Value Description 

Ao eee 2 ee aN PO leds Sree A 

FL.IGN 20 Ignore format and record type 
checks 

FL.KEY 1 Keyed access (not allowed in RT-11) 


0 
FL. REW 4 REWRITE (not allowed in RT-11) 
FL.DEL 2 DELETE (not allowed in RT=-11) 
FL.KIN 1 Integer key value 


error eee rrr SST ST 


Table 5-3: I/O Initialization Argument Masks 


ST TT 





Mask Meaning 

ISPS Sequential formatted input: FL.FMT+FL.RD 

OSFS$ Sequential formatted output: FL.FMT+FL.WRT 

Isus Sequential unformatted input: FL.RD 

osus ' Sequential unformatted output: FL.WRT 

ISLS Sequential list-directed input: FL.FMP+FL.RD 

OSL$ Sequential list-directed output: FL.FMP+FL.WRT 

IRFS Direct formatted input: FL.FMT+FL.REC+FL.RD 

ORFS Direct formatted output: FL.FMT+FL.REC+FL.WRT 

IRUS Direct unformatted input: FL.REC+FL.RD 

ORUS Direct unformatted output: FL.REC+FL.WRT 

ENFS$ ENCODE statement: FL.FMT+FL.ENC 

DEFS$ DECODE statement: FL.FMT+FL.ENC 

ENDFS$ ENDFILE statement: FL.WRT+FL.IGN 

FDRS$ FIND statement: FL.RD+FL.REC+FL.IGN 

ILFS Internal file read: FL.IND+FL.FMT 

IIFAS$ Internal file read with address of ADB passed as the 
Internal logical unit number: 
FL. INB+FL.FMT 

OIFS Internal file write: FL.IND+FL.FMT 

OIFAS Internal file write with address of ADB passed as the 
Internal logical unit specifier: 
FL.INB+FL.FMT 

Ne ea ene er 

NOTE 


If the corresponding END=/ERR= entry 
point is called (for instance, ISFE$ 
rather than ISF$), the argument mask 
includes FL.ERR. 


Table 5-4: I/O Initialization Routine Functions 


anne reteset tS 


Function Description 





FL.DIR Compare the access mode of the I/O statement with the 
access mode of the logical unit; issue OTS error 31 
if the access mode does not match. Issue OTS error 26 
if direct access is required but has not been 
specified. 
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Table 5-4 (cont.): I/O Initialization Routine Functions 


Function 


FPL.EDA 


FL.EDL 


FL.ERR 


FL.FMA 


FL. FMP 


FL.IGN 


FL.INB 


FL.IND 


FL.OPN 


FL.OUT 


FL. REW 


FL.RNM 


Description 


Save the ENCODE/DECODE buffer address in the impure 
area offsets, PLNBUF (start address) and BLBUF 
(current address). 


Add the ZNCODE/DECODE buffer length to the start 
address to determine the end address of the buffer. 
Save this value in impure area offset EOLBUF. 


Save the END= address in impure area offset ENDEX, and 
the ERR= address in impure area offset ERREX. 


Save the format address in impure area offset FMTAD. 


Compare formatting type specified with format type of 
the logical unit. Mixed formatted and unformatted 
operations are not permitted. Issue OTS error 31 if 
the format types do not match. 


Ignore the format checks for ENDFILE, FIND, and DELETE 
since both formatted and unformatted are permitted. 
Ignore the record type check since record type depends 
on format. 


Save the format address in impure area offset FMTAD. 
Save the internal logical unit address in the impure 
area offsets LNBUF (start address) and BLBUF (current 
address). Add the bytes per element from offset A.BPE 
in the array descriptor block to offset LNBUF to 
determine the end address of the internal logical 
unit. Save this value in impure area offset EOLBUF. 
Divide the total size of the array in bytes (offset 
A.SIZB in the ADB) by the bytes per element (offset 
A.BPE) to determine the number of records and store 
this value in the impure area offset DENCWD. 


Save the format address in impure area offset FMTAD. 
Save the internal logical unit address in the impure 
area offsets PLNBUF (start address) and BLBUF (current 
address). Add the length of the internal logical unit 
specifier to offset PLNBUF to determine the end 
address of the internal logical unit. Save this value 
in impure area offset EOLBUF. 


If the logical unit is not yet open, open it using the 
default open processor $OPEN. 


Set the logical unit status to input or output as 
appropriate. If output is specified and the logical 
unit is declared read-only, issue OTS error 47. 


If the file organization is sequential or relative, 
issue error OTS 54, REWRITE statement error. 


Save the direct access record number in impure area 
offsets W.RECL and W.RECH as an INTEGER*4 value. 
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5.1.2 List Element Transmission 


The compiled code makes one data transmission call to the OTS for each 
data item in the I/O list. The data transmission entry points are of 


the form: 


IOat$ 


Designates whether the argument is an address or a value; can be 


A, for address, or V, for value. 


The data type of the list element as follows: 


QOWUHER OW 
i 
i 


byte 

Logical*2 
Logical*4 
Integer*2 
Integer*4 

real 

double precision 
complex 


There are additional entry points, used only for arguments that are 
They are defined as follows: 


addresses. 


IOAHS 


TOAAS 


IOAVAS$ 


IOACHS 


—— 


transmits a Hollerith constant (output only). The 
argument is the address of the first byte of the 
constant as an ASCIZ string. 


transmits an entire array by name. The argument is the 
address of the array descriptor block. For formatted 
I/O, each array element is passed individually to the 
data~formatting level. For unformatted I/O, the entire 
array is passed as a single large data item. 


transmits an entire virtual array by name. The 
argument is the address of the array descriptor block. 


One entry is used for an argument that is two words 
(length, address descriptor): 


transmits a character string. The argument is the 
length of the character string and the address of the 
first byte of the ASCII string. 


The routines at each of these entry points set up impure area offsets 
and then invoke the data-formatting level of processing at impure area 


offset W.EXd 
ITEMSZ 


VARAD 


W.VTYP 


W.CPXF 


The impure area offsets set up are as follows: 
size in bytes of the data item. 


address of the first byte of the data item,.or 0 if at 
end of list. ; 


data type code of data item. 


complex data type flag. Complex data items are passed 
as a pair of real values. W.CPXF=0 indicates a 
noncomplex item; +1 indicates the real part of a 
complex item; -~l indicates the imaginary part of a 
complex item. 
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5.1.3 Termination Call 


The routine at entry point EOLST$ is called to specify the end of the 
I/O list. No arguments are required. 


5.2 DATA-FORMATTING LEVEL 

The compiled-code interface level calls data-formatting routines to 
transmit data between records and I/O list items, including any common 
operations that are required. 


For formatted I/O, there are three routines: 


$FIO -- format processor 
$SLSTI -- list-directed input processor 
$STO -- list-directed output processor 


These routines are called with no register arguments; on return all 
registers are undefined. 


For unformatted I/0, since conversion is not needed, the appropriate 
initialization modules maintain the transfer code as routines. 


The data~formatting routines accept data item descriptions from the 
impure area offsets ITEMSZ, VARAD, W.VTYP, and W.CPXF. On input, the 
routines read the next field of the record and transfer data to the 
item. On output, the data item value is transferred to the record. 
The following impure area offsets describe the record being processed: 

PLNBUF -- start of buffer address 

BLBUF ~~ address of next data byte 

EOLBUF -- end of buffer address 
When a new record must be read, or an output record is full, the 
record-processing routine specified by impure area offset RECIO is 
called to process the record. On input, the old record is discarded, 
a new record is read, and the impure area record description is 


updated. On output, the record is written and a new buffer area is 
set up. 


5.3 RECORD PROCESSING LEVEL 


The record-processing routines are called to transfer records to and 
from the RT-1l file system. The record-processing routines are: 


$GETS -- sequential input 
$PUTS -~- sequential output 
$GETR -- direct input 


$PUTR -- direct output 
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5.4 PRINT, TYPE, AND ACCEPT STATEMENTS 


The PRINT, TYPE, and ACCEPT statements compile into equivalent READ 
and WRITE statements using default unit numbers. Default unit numbers 
are small negative integers, which $FCHNL maps through a table in 
impure storage to actual unit numbers. This table also has global 
names for each statement to allow modification of the mapping. The 
global names are: 


SPRINT for PRINT 

$TYPE for TYPE 

SACCPT for ACCEPT 

$READ for READ 
The unit number value is at impure area offset W.LNMP. The mapped 
values are at offsets W.PRNT for PRINT, W.TYPE for TYPE, W.ACPT for 
ACCEPT, and W.READ for READ, with no unit number. 

PRINT -- compiles into OSFS$ with unit number = -1, maps to 6 

TYPE -- compiles into OSF$ with unit number = -2, maps to 5 

ACCEPT -- compiles into ISF$ with unit number = -3, maps to 5 


READ ~- compiles into ISF$ with unit number = -4, maps to l 


5.5 OPEN AND CLOSE STATEMENTS 


The OPEN and CLOSE source statements allow user programs to control 
the attributes and characteristics of files. The compiled code for 
these statements uses the standard R5 calling sequence with a special 
argument list encoding, as follows: 


ARGLST : -WORD 2n 
KEY1 


KEYn 


There is one argument for each keyword in the FORTRAN source 
statement. Each argument consists of a 2-word block, formatted as 
follows: 


15 87 0 


ARGTYPE KEYWRD ID 


INFO 





KEYWRD ID 
The low-order byte of the first word contains the keyword 
identification number associated with the keyword name in the 
source statement (see Table 5-5). 


ARGTYPE 
The high-order byte of the first word contains the argument type. 
It is used in conjunction with the INFO word to identify the 
keyword's value. 
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INFO 
The second word is called the information word; its use depends 
on the ARGTYPE value. 


The possible ARGTYPE values are 1 through 7. The meanings of each 
ARGTYPE are as follows: 


ARGTYPE Value Meaning 


lL The keyword's value is an INTEGER* 2 constant 
expression. The INFO word contains the value. 


2 The keyword's value is an INTEGER*2 variable. The 
INFO word contains the address of the variable. 


3 The keyword's value is an INTEGER*4 variable. The 
INFO word contains the address of the variable. 


4 The keyword's value is an alphanumeric literal 
decodable by the compiler. The INFO word contains 
the keyword's value encoded as a small integer. 


5 The keyword's value is a variable, array, array 
element, or character constant terminated by an 
ASCII null character (zero-byte). The INFO word 
contains the address of the start of the string. 


6 The keyword's value is the address of an external 
procedure. The INFO word contains the address. 

7 The keyword's value is the address of a 2-word 
descriptor. The first word of the descriptor 


contains the length of the string; the second word 
contains the address of the string. The INFO word 
contains the address of the first word of the 
descriptor. 


A statement's keywords can be in any order, but there cannot be any 
duplicates. Table 5-5 lists the keyword names, their associated 
identification numbers, and the ARGTYPES permissible with each 
keyword. The table also lists the literal values and associated 
literal encoding possible for keywords whose ARGTYPES are 4. 


Table 5-5: Summary of Argument Blocks by Keyword 








Keyword Keyword Allowed Literal Literal 
Name Number Argtypes Values Encoding 
ACCESS 4 4 DIRECT 1 
SEQUENTIAL 2 
APPEND 3 
KEYED 4 
ASSOCIATE VARIABLE 17 2,3 
BLANK 25 4 NULL 1 
ZERO 2 


(continued on next page) 
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Table 5-5 (Cont.): 


Summary of Argument Blocks by Keyword 








Keyword Keyword Allowed Literal Literal 
Name Number Argtypes* Values Encoding 
BLOCKSIZE 18 1,2,3 
BUFFERCOUNT 9 1,2,3 
CARRIAGECONTROL 7 4 FORTRAN 1 
LISt 2 
NONE 3 
DISPOSE 2 4 SAVE 1 
DELETE 2 
PRINT 3 
ERR 3 -- Label 
address 
EXTENDSIZE 11 1,2,3 
FILE or NAME 14 5,7 
FORM 5 4 FORMATTED 1 
UNFORMATTED 2 
INITIALSIZE 10 1,2,3 
MAXREC 16 15243 
NOSPANBLOCKS 12 —— 
READONLY 8 “— 
RECORDSIZE or RECL 6 1,2,3 
RECORDTYPE 20 4 FIXED 1 
VARIABLE 2 
SEGMENTED 3 
SHARED 13 =~ 
STATUS or TYPE 15 4 OLD 1 
NEW 2 
SCRATCH 3 
UNKNOWN 4 
UNIT 1 1,2,3 





* The ARGTYPE field for the ERR= keyword contains the number of 
bytes of temporary stack storage which must be deleted if an ERR= 


transfer occurs. 
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As an example, consider the following FORTRAN source statement: 
OPEN (UNIT=I, ERR=99, NAME='A.DAT') 
When it is compiled, the code (in part) looks like the following: 


MOV ARGLST,R5 tAddress of arg list 
JSR PC,OPEN$ ;Open the file 


cy 
° 


ARGLST: .WORD 6 73 args 
BYTE 1,2 ;UNIT, ARGTYPE=2 
«WORD I ;Address of I 
. BYTE 3,2 ;ERR, 2 bytes of stack temp 
»WORD 99 3Address of label 
» BYTE 14,5 ;NAME, ARGTYPE=5 
»WORD STRING zAddress of string 
STRING: .BYTE 101,56,104,101,124,0 ;'A.DAT' 


5.6 OTHER INTERNAL SUPPORT ROUTINES 


The following sections describe several other internal support 
routines the OTS uses. 


5.6.1 S$FCHNL, $GETFILE, and S$IOEXIT 


The SFCHNL, SGETFILE, and SIOEXIT routines serve as the common 
entrance and exit to the I/O system. 


SFCHNL locates the LUB for a given logical unit number and issues an 
error for invalid units. It is called with the logical unit number in 
R2 and returns the address of the associated LUB in RO. The PSW C-bit 
is used as an error flag on return: it is set if there is an error, 
Clear if there is not an error. On return, registers Rl and R2 are 
undefined, R3 contains the impure area pointer, and R4 and R5 are 
preserved. 


SGETFILE executes a S$FCHNL, sets the FILPTR impure area offset, and 
checks the status of the unit. It is called the same way as $PCHNL. 
It does not return the C-bit error flag; however, its register 
returns are identical to $FCHNL. 


SIOEXIT restores the user-level status and register state and executes 
the ERR= transfer. It is called with the ERR= transfer address in R4 
and the work area pointer in R3. 
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5.6.2 Default File Open Processing -- $SOPEN 


A default open is the implicit opening of a logical unit due to 
executing an I/O statement on a closed logical unit. If a READ or 
FIND statement is executed, the default open is equivalent to the 
following OPEN statement (unless a DEFINEFILE has been executed): 


OPEN (UNIT=unit, TYPE='OLD', ORGANIZATION= 'SEQUENTIAL', BLANK='ZERO', 
FORM= "form of the I/O statement", ACCESS='SEQUENTIAL') 


If a WRITE statement is executed, the default open is equivalent to 
the following OPEN statement (unless a DEFINEFILE has been executed): 


OPEN (UNIT=unit, TYPE='NEW', ORGANIZATION= "SEQUENTIAL', BLANK='ZERO', 
FORM= "form of the I/O statement", ACCESS= 'SEQUENTIAL') 


All other OPEN statement parameters assume their default values as 
described in Chapter 7. 


The default file open processor is called with RO pointing to the LUB 
and R3 pointing to the impure area. On return, all registers are 
preserved. 


5.6.3 Default File Close Processing -~ $CLOSE 


The file close processor is invoked when any one of the following 
occurs: 


® A CLOSE statement is executed. 

@ A CALL CLOSE subroutine is executed. 
@ A program terminates. 

® A file open fails. 


The SCLOSE routine implements the DISPOSE= parameter set by the OPEN 
or CLOSE statement, and invokes the appropriate routine to close, 
delete, or print the file. 


This routine is called with the logical unit number in R2. On return, 
RO, Rl, R2, and R4 are undefined; R3 points to the impure area; R5 
is preserved; and the processor C-bit is set to indicate whether an 
error occurred during the close operation. 


5.6.4 Direct Access Record Number Checking -~ S$CKRCN 


SCKRCN compares the current record number with the maximum record 
number for the file. The current record number is stored at offsets 
W.RECL (low order) and W.RECH (high order). The maximum record 
number, if it exists, is at D.RCNM (low order) and D.RCN2 (high order) 
in the LUB. If the record number is valid, it is returned in Rl (high 
order) and R2 (low order). This routine is called with the LUB 
address in RO, and the impure area pointer in R3. Registers R4 and R5 
are preserved. 
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5.6.5 Associated Variable Update -~- SASVAR 


The current record number is obtained from offsets W.RECL and W.RECH, 
incremented by one, and stored in the associate variable at the 
address in D.AVAD in the LUB. 


5.6.6 Register Save and Restore ~- SSAVPx 


The SSAVPx routine provides the register save/restore and argument 
processing support for implementing the OTS PC call convention (see 
Section 2.2.2), which pushes all arguments on the stack, calls the OTS 
routine by a JSR PC,xxx instruction, and returns with arguments 
deleted and all context preserved. This register save/restore routine 
is called by the OTS routine. It saves all registers on the stack, 
sets RO to point to the call arguments, and co-routine calls the OTS 
module. Upon return from the OTS routine, the register save/restore 
routine restores the registers, deletes the stack arguments, and 
returns to the original caller. Seven entry points are provided: 
S$SAVPO-SSAVP8 for routines with zero to eight argument words on the 
stack. For routines with more than eight arguments or with a variable 
number of arguments, S$SAVPO is called to save the registers; upon 
return to the OTS module, RO contains the number of arguments and a 
jump to $SAVPC is executed at the completion of the OTS module, rather 
than a return to the register restore portion of the $SAVPx routine. 
For ERR= transfers, $SAVPx is jumped to with RQ containing the 
transfer address. 


5.6.7 Register Save and Restore -- .SAVRL 


Several OTS routines call the register save co~routine .SAVR1 to save 
and restore registers Rl through R5 in co-routine fashion. 


5.7 FORTRAN FILE AND RECORD FORMATS 


This section describes the file and record formats that are processed 
by the FORTRAN I/O system. 


5.7.1 Sequential Organization Files 


You can process sequential files on all devices. Records may be fixed 
length, or variable length. Fixed-length records have no control 
information and are packed densely into blocks by the file system. 
Variable-length formatted sequential records are separated from one 
another by the control character sequence <CARRIAGE-RETURN><LINEFEED> 
(octal 15, octal 12). 


Unformatted sequential records have a byte-count value prepended to 
the beginning of each record. In addition, each block that holds 
records of this type contains a list of record pointers at the block's 
end. This structure facilitates backspace operations through 
unformatted sequential files. 
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5.7.2 Random Organization Files 


Files that are randomly organized are also called direct-access files. 
All records in a direct-access file have the same length. Random 
files can be opened only on block-replacable devices, such as disks. 
They cannot be used with sequential devices, such as terminals, 
printers or magnetic tape. 


Direct-access records contain no system-produced control information 
and are packed densely into blocks by the file systen. 
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This chapter discusses file-system specific portions of the OTS. In 
particular, it describes explicit operations used to implement FORTRAN 
I/O operations. 


The following register assignments are normally made within the 1/0 
portion of the OTS: 


@ RO ~-- address of the Logical Unit Block (LUB) 

@ Ril -- address of the Logical Unit Block (LUB) (copy) 
® R3 -- address of the work area 

® R2 and R4 -- scratch registers 


A JSR PC,xxx instruction calls all routines except the co-routine 
calls. R5 is generally preserved. 


6.1 I/0 CONTROL BLOCK 


The I/O system associates a single control block, called the Logical 
Unit Block (LUB), with each open unit. See Section 4.2 and Appendix B 
for more information about the LUB. 


6.2 OPEN PROCESSING 


Default file open processing and OPEN statement processing merge into 
a single common routine, S$OPENS (see Section 6.2.3), for a file open. 
SOPENS invokes RT-11's .LOOKUP programmed request for opening existing 
files, and the .ENTER request for opening new output files. In either 
case, a required device handler is .FETCHed if it is not already 
resident. 


The RT-11 programmed requests .LOOKUP, .ENTER, and .FETCH make use of 
the User Service Routine (USR). This set of RT-1l file-services 
routines can be allowed to swap in and out of memory as required (SET 
USR SWAP), or it can be forced to remain resident (NOSWAP). See the 
RT-11 User's Guide for more information about USR SWAPPING. 


If the main module of a FORTRAN~77 program is compiled without the /U 
or /NOSWAP options, and the USR is set to SWAP, then the 2K-word USR 
will be allowed to become resident in memory temporarily in a 
pre-designated location in the FORTRAN-77 OTS. This location is a 
pure-code area in PSECT $$OTSI, where no USR programmed requests are 
made. In most programs, the OTS pure code region occupies at least 2K 
words, and will execute properly while USR swapping takes place. In 
very small programs that use very few OTS routines, it is possible to 
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link a job with inadequate space in $$OTSI for the USR to swap over. 
Here it is recommended to SET USR to NOSWAP. If it is not possible to 
SET USR to NOSWAP, then you should expand the area by using the 
provided PSECT $SPACE and a short MACRO routine: 


.TITLE USRSPC 

-PSECT $SPACE 

. BLKW 200. ; Required extra space in words 
~END 


Assemble the routine with the MACRO assembler, and then link it with 
your small program. 


6.2.1 OPEN Statement Processing 


In OPEN statement processing, an argument list is searched and each 


keyword 


is located in a prescribed order. All information required 


for each keyword is available when that keyword is processed. An 
appropriate default is used for keywords not in the list. If any 
errors occur during the search, the execution of the OPEN statement is 
not attempted, the ERR= transfer is executed, and the LUB is zeroed. 


The processing for each keyword is as follows: 


ACCESS -~- 'DIRECT' sets DV.DFD; ‘APPEND' (not supported) sets 
DV.APD, producing an error 48. If DV.APD is not specified, 
the default is 'SEQUENTIAL'. 


ASSOCIATEVARIABLE ~- The variable address is stored at D.AVAD 
in the LUB. If the variable is type INTEGER*4, DV.AI4 is set 
in D.STA2. 


BLANK -—- 'NULL' sets DV.BN in D.STA2. Note that if the /X (NO 
F77 syntax) switch is not set and no BLANK= is specified, the 
compiler passes a BLANK='NULL' parameter. 


BLOCKSIZE ~- Causes run-time error 48 in RT-11 implementation. 


BUFFERCOUNT -- The value specified is stored at BUFNO in 
D.FDB. If the value is less than 1, or greater than 2, an 
error occurs. 


CARRIAGECONTROL ~~ If DV.CC is set, "'FORTRAN' sets UNLIST bit 
in D.FDB, and '‘'LIST' sets LISTMD in D.FDB. If DV.CC is not 
set and DV.FMP is specified, UNLIST is the default. 


DISPOSE ~- 'SAVE' sets DV.SAV in D.STA2; '"PRINT' sets DV.SPL 
(not implemented); and 'DELETE' sets DV.DEL. If DV.RDO is 
set, and DV.DEL or DV.SPL is specified, an error occurs. If a 
DISPOSE value is not specified and DV.SCR is set, 'DELETE' is 
the default; otherwise, 'SAVE' is the default. 


ERR -- The ERR= transfer address is obtained and the stack 
adjustment value is saved in the work area at offset COUNT. 
The transfer address, if present, is stored at offset ERREX; 
if it is not present, ERREX is cleared. 


EXTENDSIZE -- Causes run-time error 45 in RT-11l implementation 
FILE or NAME -- If a file is specified, S$FNBST is called to 


initialize the file Name block and DV.ASGN is set in D.STAT. 
SFNBST returns an error if the string is incorrect. 
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@ FORM -- 'FORMATTED' sets DV.FMP; 'UNFORMATTED' sets DV.UFP. 
Tf no value is specified and DV.DFD is set, DV.UFP is the 
default; otherwise, DV.FMP is the default. 


@ INITIALIZE -- The value specified is stored at FILSZ in the 
LUB. If it is positive, a contiguous allocation is made. If 
the value is greater than 32767, an error occurs. 


@ KEY -- Causes run-time error 48 in RT~11 implementation. 


@ MAXREC -- The value specified is stored at D.RCNM and D.RCN2 
in the LUB. If the value is negative, an error occurs. 


@ NOSPANBLOCKS ~-- Causes run-time error 48 in RT-11 
implementation. 


® ORGANIZATION -- If 'SEQUENTIAL', ignored. Otherwise, run-time 
error 48 is generated. 


® READONLY -- If this keyword is present, DV.RDO is set in 
D.STA2. 


® RECORDSIZE or RECL -- The value is stored at D.RSIZ, and bit 
DV.RSZ is set in D.STA2 of the LUB. If the size is negative 
or is larger than the user record buffer size, an error 
occurs. If DV.UFP (unformatted) is specified, the value is 
converted to bytes from storage units (four bytes per storage 
unit). If the value given does not equal the value for an 
existing file, an error occurs unless the system subroutine 
ERRSET has been called to set the continuation-type for error 
37 (inconsistent record length) to a return continuation. 


@® RECORDTYPE -- 'FIXED' sets DV.FIX; 'VARIABLE' sets DV.VAR; 
and 'SEGMENTED' sets DV.SEG. 
The defaults are 'FIXED' for direct access; "VARIABLE' for 
formatted sequential access; and 'SEGMENTED' for 


unformatted sequential access. For direct access, ‘VARIABLE' 
or 'SEGMENTED' is an error; for formatted, 'SEGMENTED' is an 


error. 
® SHARED -- Causes run-time error 48 in RT-1l implementation. 
® STATUS or TYPE -- If STATUS is not present, the default is 


"NEW. Note, however, that if the /X (NO F77 syntax) switch 
is not set and no STATUS = parameter is specified in the 
source code, the compiler passes a STATUS = 'UNKNOWN' 
parameter. 'NEW' sets DV.NEW; '‘OLD' sets DV.OLD; 'SCRATCH' 
sets DV.SCR: and 'UNKNOWN' sets DV.UNK. The resulting code 
is placed in D.STA2 in the LUB. If DV.RDO is set, and DV.SCR, 
DV.NEW, or DV.UNK is specified, an error occurs. If DV.APD is 
sety and DV.SCR or DV.NEW is specified, an error occurs. 


@® UNIT -- The unit number is obtained and $FCHNL is called to 
obtain the LUB pointer. Processing is aborted immediately if 
there is no unit number, the unit number is invalid, or the 
unit is already open. 


@ USEROPEN -~- Saves passed LUB address in work area's W.UOPN. 
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6.2.2 Default OPEN Processing 


If DV.FACC is not set, default OPEN processing performs the following 
operations: 


@ For input, it sets DV.OLD. 
@ For output, it sets DV.NEW. 


Other fields and values may have been set by CALL ASSIGN, or 
DEFINEFILE statements. 


6.2.3 SOPENS Procedure 


The S$OPENS procedure opens the file and performs the checks and 
computations common to OPEN statement processing (6.2.1) and default 
OPEN processing (6.2.2). 


Before the file is opened, $OPEN$ performs the following operations: 


® If no user file specification is provided (DV.ASGN is not 
set), a default file specification is set up. The routine 
$FLDEF is called to assemble the file dd:FOROnn.DAT, where dd 
is the device name, and nn is the logical unit number. 


® The user record buffer description in the LUB, BUFRAD and 
BUFRSZ, is initialized with the address specified by the 
impure area offset W.BFAD and the length specified by W.BLEN. 


® A record length is computed. If a user-specified value is 
available, that value is used; otherwise, one of the 
following values is used: 


132 for formatted files 
128 for unformatted files of fixed-length records 


126 for other unformatted files 


If impure area offset W.UOPN is nonzero, the user's routine is called 
to perform the OPEN operation; otherwise, .LOOKUP or »ENTER is called 
to open the file, given the specified or default name fields. If the 
open operation fails because the file cannot be found, and DV.UNK is 
set, the operation is retried with DV.NEW set. 


After the file is open, the following operations are performed: 
@ DV.OPN is set to indicate that the file is open. 


® The record format is checked for consistency; if the 
user-specified record type does not match the file's record 
format, an error occurs. 


® The record length, D.RSIZ, is checked for consistency. 


~- If the user-specified length does not match the file's 
record length for fixed-length records, an error occurs. 
If the error continuation bit specifies "RETURN", the 
user-specified length is used. 


~ For variable-length records, the record length is set to 
the maximum of the user-specified length and the file's 
maximum size. 
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® The user record buffer description in the LUB, BUFRAD and 
BUFRSZ, is initialized with the address specified by the 
impure area offset W.BFAD and the length specified by D.RSIZ. 


@ If D.RSIZ is larger than the user record buffer, as specified 
by impure area offset W.BLEN, a record size error occurs. 


If any errors occur, either reported by the RT-1l programmed request 
or resulting from the consistency checks, the file is closed. If the 
file was just created, it is deleted as well. 


6.2.4 USEROPEN Interface Specification 


The USEROPEN parameter of the OPEN statement gives you a way to access 
special processing options not explicitly available in the FORTRAN 
language. The value of the USEROPEN parameter is the name of a 
user-written MACRO-11 routine that the OTS calls to open a file. To 
use the special processing options, you must do the following: 


® Using the MACRO-11 language, write a routine that opens the 
file. 


@ In your FORTRAN program, include the statement: 
EXTERNAL filename 


where "filename" is the name of the MACRO=-11 routine you wrote 
to open the file. 


® In the OPEN statement in your FORTRAN program, include the 
keyword parameter USEROPEN=filename, where, again, "filename" 
is the name of your MACRO-11 routine. 


Although the MACRO-11 routine is called by the OTS (not your FORTRAN 
Program), you should write it as if it were being called by a FORTRAN 
program. You must report the status of the open operation in RO. The 
OTS invokes the routine as a standard FORTRAN function of one argument 
using the standard FORTRAN calling convention: 


ISTS = userprocedure (FDB) 


FDB 
The address of the LUB for the logical unit. 


Ists 
The INTEGER*2 error status to be returned. The value is expected 
to be the F.ERR completion’ status and to follow the convention 
used for SYSLIB status returns (positive numbers indicate 
success, negative numbers failure). Note that the status is 
returned only to the OTS, not to the FORTRAN program. 


The following limits and constraints are imposed on the user-written 
procedure: 


@® All FORTRAN processing is completed prior to the call. 


® The LUB address specified is valid until the logical unit is 
Closed. Note, however, that you do not have access to the LUB 
in the FORTRAN program. You can access the LUB in a MACRO-11 
program; the LUB address is at 2(R5). 
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The following sample FORTRAN program and user-open procedure specify 
that an existing file of the same name should not be superseded by a 
create operation: 


EXTERNAL NOSUP 
OPEN (UNIT = 1, USEROPEN=NOSUP,TYPE='NEW') 


END 
-MCALL .LOOKUP, .ENTER 
ERRBYT=52 
DEVNM=6 
NOSUP:: MOV '2(R5) ,RO Get LUB addr 


ADD #DEVNM, RO 
_,LOOKUP #AREA,0,RO0 
CMPB @#ERRBYT, #1 
BNE ERROR 
ENTER #AREA,0,RO 
MOVB @#ERRBYT, RO 
NEG RO 

RETURN 


Point to name block 
does it exist? 


=e Mo Ne 


Error if anything but. 
Open the file 

Return completion status 
Make error code negative 


=e ms we tO 


ERROR: 2c 
RETURN 


6.2.5 File Name Processing 


Two routines -~ $FNBST and $FLDEF -- are used to process file name 
strings and supply FORTRAN default file names. 


The File Name Block Initialization module, S$FNBST, sets up the File 
Name Block (FNB) of the LUB. 


If there is a file name argument (the NAME keyword is used), $FNBST is 
called from the ASSIGN subroutine. SFNBST is called with R3 
containing the impure area pointer, R2 containing the length of the 
name string, and R1 pointing to the start of the string. Registers 
RO, Rl, and R2 are destroyed; R3, R4, and R5 are preserved. 


If no file name is provided, the Default File Name Generation module, 
SFLDEF, is called to fill in the default file name. It stores the 
default FORTRAN file name and file type in the FNB. On input, the 
FORTRAN default file name is FOROnn.DAT, where nn is the unit number. 
R3 points to the impure area. All registers are preserved. 


6.3 FILE CLOSE PROCESSING 


File close processing is performed by the OTS routine $CLOSE, which 
uses the following RT-11 programmed requests: 


® The File Close Processing request, .CLOSE, to close files 
@ The File Deletion request, .DELETE, to delete files 


The CLOSE source statement is compiled using an encoded argument list 
similar to that for the OPEN statement; however, only the UNIT, ERR, 
and DISPOSE keywords are allowed. The processing used is also 
similar: The argument list is searched for each allowed keyword and 
appropriate actions are taken. If any errors are encountered, the 
CLOSE is not attempted and the LUB is NOT zeroed. 
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The processing for each keyword is described below, in order of 
execution: 


1. ERR -- The ERR= transfer address is obtained and the stack 
adjustment value is saved at offset COUNT. The address is 
stored at offset ERREX, if present. 

2. UNIT -~- The unit number is obtained, and $FCHNL is called to 
obtain the LUB address. If no unit number is present, or if 
an invalid unit number is specified, a fatal error occurs. 

3. DISPOSE -- If not present, the existing disposition is used. 
'SAVE' sets DV.SAV; 'PRINT' sets DV.SPL; and 'DELETE' sets 
DV.DEL. If DV.SCR is set, and DV.SPL or DV.SAV is specified, 


an error occurs. If DV.RDO is set, and DV.SPL or DV.DEL is 
specified, an error occurs. 


6.4 SEQUENTIAL I/O PROCESSING 
This section describes low-level OTS routines called by the 1/0 
statement processors and format processors to perform sequential 
record transfers. The routines are called with the work area address 
in R3. 
The sequential input routine, $GETS, does the following: 

® Obtains the LUB pointer from offset FILPTR. 

@® Maintains a pointer to next available byte 


@ Transfers bytes from the device buffer to the user buffer 


@® When an end of file condition is detected, the END= transfer 
is executed. Errors cause the ERR= transfer to be executed. 


@ Increments the record count in D.RCCT and D.RCC2. 


@ Returns the actual record length in Rl, and returns the start 
address of the record in R2 (RO is undefined). 


The Sequential Output routine, $PUTS, proceeds as follows: 
@® Obtains the LUB pointer from offset FILPTR 


@ Maintains an output pointer to the next available buffer 
position 


® -Transfers byte data from the user buffer to an appropriate 
device buffer. 


® Increments the record count in D.RCCT and D.RCC2 


$PUTS is called with the record length in Rl. Registers RO, R1, and 
R2 are undefined upon return. 


6.5 DIRECT ACCESS I/O PROCESSING 


This section describes low-level OTS routines called by the I/0 
statement processors and format processors to perform the actual calls 
to the file system for direct access record transfers, and to perform 
miscellaneous utility tasks. The routines are called with the work 
area address in R3. 
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The Direct Access Input routine, $GETR, proceeds as follows: 


® Obtains the LUB pointer from offset FILPTR, and calls S$CKRCN 
to verify the record number and return it in Rl and R2 


@ Calls $GETBL to read the required block when necessary 
® Calls S$ASVAR to update the associated variable 
Registers RO, R1, and R2 are undefined. 


The Direct Access Output routines, $PUTR and $PUTRI, proceed as 
follows: 


® S$PUTRI is called to initialize a direct access write 
operation. 


® Obtains the LUB pointer from offset FILPTR and calls $CKRCN to 
verify the record number. 


@ Stores the record number at F.RCNM and F.RCNM+2 in the LUB. 
@ S$PUTR is called to write the record. 
@ Obtains the LUB pointer from FILPTR. 


@® Computes the number of unfilled bytes in the record. The 
record is padded to the correct length with blanks for 
formatted records and zero bytes for unformatted records. 


@ Calls $ASVAR to update the associate variable. 
Registers RO, Rl, and R2 are undefined. 


The Direct Access Record Number Checking routine, S$CKRCN, verifies the 
current record number by comparing it against the maximum record 
number for the file. The current record number is stored at offsets 
W.RECL (low-order) and W.RECH (high-order). The maximum record 
number, if it exists, is at D.RCNM (low-order) and D.RCN2 (high-order) 
in the LUB. The record number, if valid, is returned in Rl 
(high-order) and R2 (low-order). 


SCKRCN is called with the LUB address in RO, and the impure-area 
pointer in R3. Registers R4 and R5 are preserved. 


The Associated Variable Update routine, SASVAR, obtains the current 
record number from offsets W.RECL and W.RECH, increments it by 1, and 
stores it in the associate variable at the address in D.AVAD in the 
LUB. SASVAR is called with RO pointing to the LUB. Registers Rl and 
R2 are undefined. 


6.6 AUXILIARY I/O OPERATIONS 


This section identifies and explains the routines that perform the 
operations of the following FORTRAN source statements: BACKSPACE, 
REWIND, ENDFILE, DEFINEFILE, and FIND. 


BACKSPACE -~ BKSPS$ 


The unit number is obtained and SGETFILE is called to obtain the 
LUB address. If the file is closed or is a direct access file, 
the operation is ignored. If the file is opened for append, an 
error occurs. The current block number and offset are reset to 
that the file is "rewound". The record count is obtained from 
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D.RCCT and D.RCC2 in the LUB. The record count is decremented by 
l, and n-1 reads are performed. Note that the count is the 
logical record count, and therefore that multiple physical reads 
may.be required for unformatted segmented records. 


REWIND -- REWIS 


The unit number is obtained and $GETFILE is called to obtain the 
LUB address. If the file is closed or is a direct access file, 
the operation is ignored. The append bit is cleared and the 
record count D.RCCT and D.RCC2 is zeroed. 


ENDFILE -- ENDF$ 


The unit number is obtained and $GETFILE is called to obtain the 
LUB address. If the file is a direct access file, an error 
occurs and the operation is ignored. If not open, the file is 
opened by SOPEN (default open) for write. A 1-byte record, 
containing an octal 32 (CTRL/Z), is output to the file, using 
SPUTS. 


DEFINEFILE -- DEFF$ 


FIND 
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The unit number is obtained and SGETFILE is called to obtain the 
LUB address. If the unit is open, an error occurs. The number 
of records is stored at D.RCNM and D.RCN2 in the LUB. The 
recordsize is converted to bytes and stored at D.RSIZ. The 
associated variable address is stored at D.AVAD, and DV.AI4 is 
set if the associated variable is Integer*4. DV.DFD and DV.UFP 
are set. If DV.DFD was previously set, an error occurs. If the 
number of records or record size is negative, an error occurs. 


-~ FINDS 
The FIND statement is contained in the same module as that of the 
DEFINEFILE statement. The argument mask for $INITIO is set to 


FL.REC!IFL.RD and SINITIO is called. The associated variable, if 
present, is set to the record number. 


I/O-RELATED SUBROUTINES 


This section describes the operation of three I/O-related subroutines. 
The subroutines are described in detail in the PDP-11 FORTRAN-77/RT-11 
User's Guide. 

ASSIGN 


CLOSE 


The unit number is placed in R2 and $GETFILE is called to get the 
LUB address. The file specification string address is placed in 
Rl. If no string length is present, it is computed by scanning 
for a zero-byte. 


The unit number argument is moved to R2 and the OTS routine 
S$CLOSE is called to close the file. 
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CHAPTER 7 


FORMAT PROCESSING AND FORMAT CONVERSIONS 


This chapter discusses the internal form of format specifications, the 
format processing algorithm, and the format conversion routines. 


7.1 COMPILER FORMAT LANGUAGE 


Format specifications are compiled into a standard internal form. 
That form, which is illustrated in Figure 7-1, consists of a format 
code byte followed by one to five bytes of optional format code 
parameters. 


bit 7 65 0 address 
Boa 
CODE 
VFE MASK n+1 





Figure 7-1: Format Code Form 


7.1.1 Format Code Byte 


The format code byte consists of a 6-bit format code, a l-bit Variable 
Format Expression (VFE) flag, and a l-bit repeat count flag. 


The flags indicate whether the VFE mask and repeat count bytes are 
included in the compiled code. If the VFE flag equals 0, no VFEs are 
present in the format. If the VFE flag equals 1, VFEs are present and 
the compiled code includes a VFE mask byte followed by VFE addresses. 
If the repeat count flag equals 0, the repeat count for the format 
specification is l. If the repeat count flag equals 1, the repeat 
count for the specification is greater than 1 or is a VFE, and the 
repeat count byte is included in the compiled code. 


Table 7-1 lists the decimal value of each 6-bit format code, gives its 
source code form, and indicates whether it uses the field width and 
decimal part parameters. 
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Table 7-1: Compiled Format Codes 








Decimal Source Repeat 
Code Form Count w oD iE Notes 
0-3 -- -- - - - Format error, only 0 and 2 
are used currently; 0 means 
format syntax error; 2 means 
format too Large 
4 ( a= - - - Format reversion point 
6 n ( n-1 - - - Left paren. of repeat group 
8 ) —_ eng Right paren. of repeat group 
10 ) -- - - «= End of format 
12 / pha fe 
14 $ a= 2, te 
16 : -- - - - 
18 sP -—- $s - - 
20 Q -- - - 
22 Tn =~ |e a 
24 nx n-1 - - = Previous PDP-1l FORTRAN 
IV-PLUS behavior for nX 
(Compiler does not generate 
this code for nX; OTS still 
includes routine for 
26 nHcl...cn n-1 - = = compatibility) n not VFE 
or ‘cl..cn' n characters follow 
28 nAw n-1 woo7- Standard conversions 
30 nLw n-1 we - 
32 nOw n-1 we = 
34 niw n-1 Wom 7 
36 nFw.d n-1 wde- 
38 nEw.d n-l wd- 
40 nGw.d n-1 wd- 
42 nDw.d n-1 wd- 
44 nA n-1 - - = Default formats 
46 nL n-1 - - = 
48 no n=l - - = 
50 nI n=1 -~ - - 
52 nF n-1 - - = 
54 nE n-1 - - = 
56 nG n-1 - - - 
58 nD n-1 - = = 
5 s -- - - - New format descriptors 
7 SP -- - = = 
9 ss -- - - - 
11 BN -- - - - 
13 BZ —~ - = = 
15 TLn -- | a 
L7 TRn or nx — noo - 
19 nZw n-1 Wo=) = 
21 nZ n-1 - ~ - Default 2 format 
23 nEw.dEe n-1 wide E format descriptor with 
exponent component 
25 nGw.dEe n-1 wm G with e component 
27 nOw.m n-1 wm - O, 2, I with m component 
29 nZw.m n-1 wm in 
31 niw.m n-1 wns 
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7.1.2 Format Code Parameters 


Up to five bytes of format code parameters may appear in the compiled 
code for a format specification. The parameters are: 


@® VFE Mask Byte ~- indicates whether the other format code 
Parameters are VFEs or compiled constants. Bits 7, 6, and 5 
are associated with the repeat count, field width, and decimal 
Part parameters, respectively. A bit setting of 1 means that 
the associated parameter is a VFE; a 0 setting means that the 
associated parameter is a compiled constant. 


® Repeat Count Byte -=- contains the repeat count value when the 
repeat count is not 1. This value is 1 less then the source 
code value. It must be in the range 1 to 255. 


® Field Width Byte -- contains the field width or tab position 
in the range 1 to 255, or the scale factor in the range -128 
to +127. 


® Decimal Part Byte ~~ contains the decimal field width for the 
floating-point conversion codes, in the range 0 to 255; or 
contains the significant digit part for the I, 0, and @ 
formats in the form Iw.m, Ow.m, or Zw.m. 


® Exponent Field Width Byte ~~ contains the optional exponent 
field width value, in the range 0 to 255. The default value 
is 2. 


When the repeat count, field width, or decimal part is a VFE, the VFE 
address begins on the next word boundary after the VFE mask byte. The 
VFE is compiled as an unparameterized arithmetic statement function of 
type INTEGER*2 and is called by the instruction JSR PC,XXX, with R5 
pointing to the program unit argument list. The format interpreter 
performs all range checking on the result. 


7.1.3 Hollerith Formats 


Quoted format strings (character constants) are compiled as Hollerith 
constants. The characters to be transmitted are included in the 
compiled code following the repeat count. The repeat count cannot be 
a VFE. 


7.1.4 Default Formats 


Most format code field descriptors have default values that are 
supplied if no numeric value is present. The defaults are determined 
from the format code and the data type of the corresponding list 
element, as follows: 


Format Code Data Type Default Values of W, W.D, or W.DE 


I I*2 7 

I I*4 12 

E,G R*4 15.7 (E=2) 

E,G R*8 25.16 (E=2) 

D,F R*4 15.7 

D,F R*8 25.16 

0,2 All W=MAX (7 ,MIN (255 (8*ELEM_SIZE) /3+2) ) 
L All 2 

A All Number of bytes in the variable 

x “—- 1 


7-3 


FORMAT PROCESSING AND FORMAT CONVERSIONS 


7.1.5 Format Compiled Code Example 


This section gives an example of the code resulting from 
compilation of a FORMAT source statement. 


The FORTRAN statement: 
1 FORMAT(1X, F13.5, 'ABCDE', <K>I10, 3(2E15.7E4)/) 


is compiled into the following: 


el: .BYTE 21,1 7 IX 
-BYTE 44,15,5 3 F13.5 
-BYTE 232 ; Hollerith code 
BYTE 4 ; Repeat count 


»BYTE 101,102,103,104,105 ; '‘ABCDE' 
- BYTE 342 I format code 


/ 
~BYTE 200 ; VFE mask 
WORD LSVFE : VFE address 
» BYTE 12 ; 110 
.BYTE 4 ; Reversion point 
»BYTE 206,2 ‘>; Left paren and repeat count 
BYTE 227,1 3 E format code and repeat count 
-BYTE 17,7,4 ; E1S.7E4 
BYTE 10 7 Right paren 
»BYTE 14 ; / code 
~BYTE 12 3 End-of-format 


LS$VFE: MOV K,RO 
RTS PC 


7.2 FORMAT PROCESSING PSECTS 


the 


The OTS uses the following program sections (PSECTs) for format and 
list-directed processing: 
@® SSFIOC -- contains the pure code of the format processor 


(SFIO) and the list-directed processors ($LSTI and $LSTO) 


@ SSFIOD -- contains pure data (constants and dispatch tables) 


used by $FIO, $LSTI, and $LSTO 


® S$SFIOI -- contains the code for integer conversions 

® S$S$FIOL -- contains the code for logical conversions 

® SSFIOR -- contains the code for floating-point convérsions 

@ SSFIOS -- contains the list-directed input constant storage 
block 

® SSFIOZ -- contains the code for octal and hexadecimal 
conversions 

® SSFIO2 -- contains the addresses of the conversion routine 


entry points 
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Each module stores its own entry point address in $$FI0O2. The 
processing routines pick up the addresses of the appropriate 
conversion routines as needed (if that address is 0, an error occurs). 
The PSECTs have the GBL attribute so that the linker can correctly 
build overlaid job imagess. 


None of the conversion routines reference the work area or any other 
portion of the OTS. They preserve R5 and the FPP registers, and leave 
all other registers undefined. 


7.3 FORMAT AND LIST=-DIRECTED PROCESSORS 


The format and list<-directed processors ~- $FIO, $LSTI, and $LSTO -- 
operate as co-routines with the I/O transmission operators. They are 
called at the end of I/O initialization, and process formats and list 
items until called with offset VARAD equal to 0. 


7.3.1 Format Processor -~ $FIO 


$FIO processes through the format, calling an internal routine for 
each format code. It calls VFEs as encountered, with all context 
saved and R5 restored to the user code value. When $FIO encounters a 
format requiring a list item, it calls the appropriate conversion 
routines (except that 'A' format is handled within $FIO) until no 
elements remain in the list (offset VARAD = 0). For nested group 
repeat specifications, $FIO uses a pushdown stack in the work area. 
Offset FSTKP points to the current position; offset FSTK is the base 
of the pushdown stack. 


7.3.2 List-Directed Input Processor -~ $LSTI 


SLSTI lexically scans the external record, delimits a field of input 
characters, determines the data type of the field, and calls the 
appropriate input conversion routine. It converts the resulting 
internal data value to the appropriate type and moves it to the list 
element. The currently active data value is stored at the address in 
PSECT $$FIOS pointed to by the work area offset W.PLIC. 


The parameters passed to the format conversion modules include the 
buffer pointer, the actual field width as determined by the delimiter 
sean, and, for floating-point conversions, a decimal part of 0 and 
scale factor of 0. 


7.3.3 List-Directed Output Processor -- $LSTO 


SLSTO accepts the list element and determines a format based on the 
list element data type, as follows: 


Data Type Format 
BYTE T5 
LOGICAL* 2 L2 
LOGICAL* 4 L2 


FORMAT PROCESSING AND FORMAT CONVERSIONS 


Data Type Format 
INTEGER*2 I7 
INTEGER*4 T12 
REAL*4 1PG15.7 
REAL*8 1PG25.16 
COMPLEX* 8 1X,'(',1PG14.7,°,',1PG14.7,")' 
CHARACTER*n nAl where n is the string length. 
Hollerith 


I£ the computed field length is longer than the number of remaining 
characters in the record, $LSTO writes the current record and begins a 
new record. Each item is contained in a single record except for 
character constants. that are longer than a single record. $LSTO 
inserts a space at the front of each record for carriage control. The 
record length is the record size specified in the RECORDSIZE parameter 
of the OPEN statement. If no RECORDSIZE parameter is specified, the 
default is 81 bytes, whi ch yields 80 print positions. 


7.4 RUN-TIME FORMAT COMPILER -- FMTCVS 


Format specifications stored in arrays are converted into the required 
form during execution. This is done by the following: 


1. Pushing the address of the array specification 
2. Executing JSR PC,FMTCV$ 


FMTCVS does not delete the stack argument; it replaces its value with 
the address of the compiled format. 


Object time formats are compiled into a buffer in the OTS, whose 
length is set by the compiler's /R option (global $LRECL). The 
buffer's address is stored at offset W.OBFL and its high address+l is 
stored at W.OBFH. Offset FMTAD points to the current entry in the 
output format buffer. 
Within the FMTCVS processing routines: 

@® R5 points to the source characters. 

® RO contains the current source bytes. 

@ R2 contains any numeric value being accumulated. 


@ Offset NOARG indicates the number of expected arguments for 
the code. 


® Offset PARLVL specifies the parentheses depth encountered. 
® Offset NUMFLG indicates whether a number is available in R2. 
The module examines each source character. If the character is a 


digit, a number is accumulated; if it is a number or a special 
character, a dispatch is made to process the format code. 
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If the buffer space is exhausted, FMTCVS stores the FMTBIG format code 
(2) in the first byte of the compiled format and returns an error. If 
a format syntax error is detected, FMTCVS stores the FMTBAD format 
code (0) in the first byte and returns an error. 


7.5 INTEGER AND OCTAL CONVERSIONS 


For input, the routines called are OCI$ for octal conversions (F4P V3 
version) and ICI$ for integer conversions. The calling sequence is: 


1. Push the address of the input string. 


2. Push the number of input characters (high bit of this word 
indicates BN/BZ; 0=BZ and 1=BN). 


3. Call ICI$ (or OCI$). 
The routines return a 2-word result on the stack in INTEGER*4 format. 
The calling arguments are deleted. If an error occurs, the C-bit is 
set and the value returned is 0. The floating-point conversions call 
the routine at entry point $ECI to input the exponent field. 
For output, the routines called are OCO$ for octal conversions 
(previous PDP-11 FORTRAN IV-PLUS version), and ICO$ for integer 
conversions. The calling sequence is: . 

1. Push the address of the output field. 


2. Push the width of the output field (high bit of this word 
indicates SP/SS; 0=SS and L=SP). 


3. Push the INTEGER*4 value. 

4. Call ICO$ (or OCO$). 
The return is made with the calling arguments deleted. If an error 
occurs, the C-bit is set and the output field is filled with 


asterisks. 


Also for output, IMOS is called for integer conversions of the form 
Iw.m. The calling sequence is: 


1. Push the address of the output field. 


2. Push the width of the output field (high bit of this word 
indicates SP/SS: 0=SS and 1=SP). 


3. Push the INTEGER*4 value. 
4. Push the least number of digits to be output. 
5. Call IMOS. 
NOTE 
The OTS no longer uses the entry points 
OcIS and oOCO$ for octal conversions. 


They are included for compatibility 
purposes. 
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7.6 HEXADECIMAL AND NEW OCTAL CONVERSIONS 
The hexadecimal and new octal conversions apply to all data types in 
PDP-1ll FORTRAN-77. The calling sequence uses descriptors instead of 
values on the stack. For input, the routines called are 2CIS$ for 
hexadecimal conversions and NOCIS for octal conversions. The calling 
sequence is: 

1. Push the address of the input string. 


2. Push the number of input characters (high bit of this word 
indicates BN/BZ; 0=BZ and 1=BN). 


3. Push the variable address. 

4. Push the variable length. 

5. Call ZCI$ or NOCIS. 
The return is made with the arguments deleted and the value loaded 
into the variable whose address was given. If an error occurs, the 


C-bit is set and the value returned is 0. 


For output, the routines called are ZMO$ for hexadecimal conversions 
and OMO$ for octal conversions. The calling sequence is: 


1. Push the address of the output field. 


2. Push the width of the output field (high bit of this word 
indicates SP/SS; 0=SS and 1=SP). 


3. Push the least number of digits to be output (for Zw.m and 
Ow.m). 


4. Push the variable address. 
5. Push the variable length. 
6. Call ZMOS or OMOS. 


The return is made with the arguments deleted. If an error occurs, 
the C-bit is set and the output field is Filled with asterisks. 


7.7 LOGICAL CONVERSIONS 
The input logical conversion routine, LCI$, is called as follows: 
1. Push the address of the input field. 
2. Push the width of the input field. 
3. Call LCI$. 
LCI$ returns a l-word result on the stack: 0 for .FALSE and -1l for 


«TRUE. The calling arguments are deleted. If an error occurs, the 
C-bit is set and .FALSE is returned. 
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The output logical conversion routine, LCO$, is called as follows: 
1. Push the address of the output field. 
2. Push the width of the output field. 
3. Push the l-word logical value. 
4, Call LCoS. 


The return is made with the calling arguments deleted and the C-bit 
cleared. 


7.8 REAL, DOUBLE-PRECISION, AND COMPLEX CONVERSIONS 


The input conversion routine, RCI$, is called for all formats (D, E, 
F, and G format codes) as follows: 


1. Push the address of the input field. 


2. Push the width of the input field (high bit of this word 
indicates BN/BZ; 0=BZ and 1=BN). 


3. Push the decimal part width. 

4. Push the scale factor (P format). 

5. Call RCIS$. 
RCI$S returns a 4-word, double-precision result on the = stack. The 
calling arguments are deleted. If an error occurs, the C-bit is set 
and the value returned is 0.0. Tf an exponent subfield is 
encountered, SECT is called in the integer input conversion routine to 


handle the conversion. 


The output conversion routines, DCO$, ECO$, FCO$, and GCO$, are called 
as follows: 


1. Push the address of the output field. 


2. Push the width of the output field (high bit of this word 
indicates SP/SS; 0=SS and 1=SP). 


3. Push the decimal part width (high byte of this word contains 
the value of e for forms Ew.dEe or Gw.dEe). 


4. Push the scale factor. 

5. Push the 4-word, double-precision value. 

6. Call DCO$, ECO$, FCO$, or GCOS. 
The return is made with the calling arguments deleted. Tf an error 
occurs, the C-bit is set and the output field is filled with 


asterisks. 


The real, double-precision, and complex conversions are done in the 
software; the FPP unit is not used. 


The optional module provided, F77CVF, is an FPP implementation that is 
significantly faster but slightly less accurate. The entire FPP state 
is conserved. 
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7.9 FORMAT CONVERSION ERROR PROCESSING 


When a format conversion error occurs, both methods of error 
continuation, ERR=transfer and return (see Section 9.2.2.1), are 
generally supported. The actions taken for these errors are as 
follows: 


Error 51 -~ list-directed I/O syntax error 
The result value is null (no change). 


Error 53 -- format/variable type mismatch error 
The value is used as is, without conversion. 


Error 55 -= output conversion error 
The field is filled with asterisks. 


Error 56 -— input conversion error 
The result value is 0, 0. or 0.DO. 


Error 60 -- variable format expression value error 
A value of 1 is used for repeat count or field width; 
a value of 0 is used for the decimal part or scale 
factor. 


f 
For more information on format conversion error processing, see the 
PDP-11 FORTRAN-77/RT-ll User's Guide. 
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ERROR PROCESSING AND EXECUTION CONTROL 


This chapter discusses execution control processing, detecting and 
processing run-time errors, and generating error messages. 


8.1 PROGRAM INITIALIZATION 


The first instruction of every FORTRAN main program calls the OTS 
initialization routine, as follows: 


JSR PC,OTIS 
The following operations are performed: 

® SSTFPP is called to initialize the FP-ll floating-point 
processor or the KEFLIA floating-point microcode option 
(unless F77EIS is used). 

® The error control byte table is copied into impure storage. 

® The number of available logical units is computed as the 
minimum of the size of the device table program section 
(PSECT) and the value iof impure area offset W.LUNS. The 
device table PSECT is set to zero. 


® The user record buffer PSECT size is computed and stored at 
impure area offset W.BLEN, 


® Miscellaneous impure area offsets are set to zero. 
@ The job error count limit is set to 15. 


® S$VINIT is called to initialize the virtual array mapping 
window if virtual arrays are used. 


8.2 EXECUTION-TIME ERRORS 


The following sections describe the types of errors reported by the 
ots. 


8.2.1 Trap Instruction Processing 


The OTS uses TRAP instructions to report errors. FORTRAN error 
numbers range from 1 through 120 (decimal). Not all numbers have a 
definition; some are reserved for future error definitions. The 
error number is in the low byte of the TRAP instruction. Internally, 
it is 128 larger than the reported number; thus, error number 21 is 
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internally represented as 149. The first 128 TRAP values are 
available to users (see Section 8.4). 


When a TRAP instruction is executed, the operating system transfers 
control to the TRAP instruction processor, which checks the range of 
the error number. If that is valid, it calls S$ERRAA to do the error 


analysis and reporting. If the error number is invalid, it returns an 
error number l. 


SERRAA's processing is based on the contents of an error control byte 
in impure storage. The error control byte is bit encoded. The bit 
descriptions are: ; 

EC.CON -- Continue. 

EC.CNT -~ Count. 

EC.UER ~- Use ERR= exit if 1; return if 0. 

EC.LOG -~ Log. 

EC.INU ~~ This number defined for use. 

EC.RTS -- Return continuation permitted. 

EC.ERE -~ ERR= continuation permitted. 
The sign bit of the error control byte has no name. It is tested and 
cleared by the ERRTST system subroutine. When it is clear, an error 
has not occurred; when it is set, an error has occurred. 


The standard bit combinations are: 


Fatal 
Errors: EC.FAT = EC.INU + EC.LOG 


r/o 
Errors: EC.IO = EC.INU + EC.CON + EC.CNT + EC.LOG + EC.UER + 
EC .ERE 


Other 
Errors: EC.NRM = EC.INU + EC.CON + EC.CNT + EC.LOG + EC.RTS 


8.2.2 Error Control Byte Processing 


SERRAA obtains the error control byte from the OTS impure area. The 
sign bit is set. $ERRAA examines other bits in the error control byte 
and acts as follows: 


@ If the continue bit is cleared, the error report includes the 
exit flag. 


@® If the count bit is set and no ERR=address exists, offset 
W.ECNT is decr emented. If W.ECNT is less than or equal to 
zero, the report includes the exit flag. 


® If the continue~type bit is set and no ERR= address exists, 
the error re port includes the exit flag. 


@® If the log bit is set, the error report includes the no-exit 
flag. If the job exits, the message is always logged. 


SERRAA calls S$ERRLG to log all terminal messages, both error reports, 
and the messages from STOP and PAUSE statements. 
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8.2.2.1 Continuation Processing - Two types of continuation after an 
error are supported: 


® Transfer to an ERR= address. This type is used for most I/0 
errors. 


@ Return to the source of the error. This type is generally 
used for error s other than I/O errors. 


8.2.2.2 W.IOEF Error Processing ~ For some I/O errors, it may be 
better if the ERR= transfer is initiated by the I/O routine itself, 
rather than by the error processor ($ERRAA). For example, when OPEN 
statement processing detects an error in a keyword, the transfer to 
the ERR= address is delayed until all of the statement's keywords have 
been examined. 


Work area offset W.IOEF is used to obtain this special error 
processing. The eff ects of W.IOEF's value are as follows: 


@ When it is 0, default processing is enabled. 


@ When it is negative, default processing is performed except 
that the ERR= transfer is not made; instead, control is 
returned to the source of the error and the ERR= transfer can 
be made from there. 


® When it is positive, the return type of continuation is always 
executed. 


W.IOEF is initially zero and is reset to zero before exiting from a 
routine that uses it. Regardless of the W.IOEF setting, if no ERR= 
address exists, the job will exit. 


8.2.3 Floating-Point Processor Errors 


All Floating-Point Processor (FPP) errors are processed by routine 
SFPERR. When divide-by-zero, overflow, or underflow occurs, zero is 
supplied as the result of the operation that caused the trap. 


8.2.4 Error Message Processing 


Error message construction and processing is performed by many small 
routines. Message processing begins with a call to SERRLG, which 
controls the flow of mess age processing, calling the appropriate 


message utilities as required. SERRLG produces a 5-line error log 
containing the following: 

@® On line 1, the job name and error number. 

@ On line 2, message text. 


@ On line 3, the value of the program counter at the time of the 
error. This is found at offset W.PC. 


@® On line 4, the error count exceeded message. This is based on 
the error limit count stored at offset W.ECNT. 


@ On line 5, the I/O error data, which is based on the primary 


error field of the LUB (referenced by offset W.FERR), followed 
by the program unit traceback. 
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For message construction, R3 points to the work area, RS points to the 
current position in the message text being constructed, and offset 
W.ERLN points to the beginning of the error message buffer. 


SERRLG is also called to output messages from STOP and PAUSE 
statements. Tt uses the values of RO and Rl to determine the type of 
message being generated, as follows: 


® If Rl is 0, the message is associated with a STOP or PAUSE 
Statement, and RO points to the message text block. 


@ If RIL is not 0, the message is an error message, and RO is -1 
if the job is exiting and 0 if the job is continuing. 


8.3 STOP AND PAUSE STATEMENT PROCESS ING 
STOP and PAUSE statements are compiled to calls as follows: 
1. Push address of display (0 indicates no display). 
2. Call statement-specifiec entry: 
STOPS for STOP 
PAUSS for PAUSE 


All context is saved. SERRLG (see Section 8.2.4) is called to output 
the message. STOP then jumps to $EXIT; PAUSE issues a .TTYIN request 
and then returns when a <CR><LF> sequence is encountered. 


8.4 USER INTERFACING TO TERMINAL MESSAGE OUTPUT 


The error-reporting message facility enables users to write text to 
their terminals without doing FORTRAN I/O. A message text block 
similar to that used for STOP and PAUSE statements is constructed as 
follows. Rl equals 0; RO points to a 2-word message block. The 
first word of the block contains the address of an ASCIZ string (ASCII 
string terminated by a zero byte); the second word is 0. The text is 
output by executing a JSR PC, SERRLG instruction. 


Example: 
The following prints 'HELLO' on the user terminal: 
In FORTRAN : 


CALL MSG ('HELLO') 
END 7 


IN MACRO-11 


MSG: : CLR ~(SP) 
MOV 2(R5) ,-(SP) 
MOV SP,RO 
CLR RL 
JSR PC,SERRLG 
CMP (SP)+, (SP)+ 
RTS PC 
» END 


2nd word of message block 
Address of ASCIZ text 

RO points to message block 
Signal non-error type message 
Output the message 

Delete message block 

Return 


wo 


™e Ne 868 Se Se Se 


Only a single line can be output. 
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8.5 EXECUTION CONTROL SUBROUTINES 


The following subroutines are described in detail in the PDP-11 
FORTRAN-77/RT-11l User's Guide: 


ERRSET -- The error number specified by the user is extracted and 
checked for v alidity. The logical arguments are extracted and 
the appropriate bits in the error contro 1 byte are manipulated. 
If a limit count is provided, it is stored at offset W.EC NT. 


ERRSNS -- This routine is called with zero to two integer 
arguments: 


CALL ERRSNS (NUM, UNIT) 


The information saved from the latest error is returned as 
follows: 


offset W.ERNM into NUM 

offset W.ERUN into UNIT 
These offsets are then zeroed. 
ERRTST -- The error number is retrieved and checked for validity. 
The sign bit of the error control byte is tested and cleared, and 
the result is returned in the second argument. 


EXIT -- Performs a jump to SEXIT. 


USEREX ~~ Stores the argument address at work area offset EXADDR 
for use during job termination. 


This chapter des 


housekeeping operations required by the compiled code. 
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cribes routines that support various 


9.1 ARITHMETIC OPERATIONS 


arithmetic and 


All the routines follow a common naming convention in which: 


® The firs 
follows: 


AD -- 
SB -- 
ML -- 
DV -- 
PW -- 
CM -- 
TS -- 
NG -- 


@ The next 


t two letters indicate the operation 


addition 
subtraction 
multiplication 
division 
exponentiation 
comparison 
test for zero 
negation 


letter (next two, in the case of 


performed, as 


exponentiation) 


indicates the data types of the arguments, as follows: 


I -- 


Q 0D WD 4 
' 
t 


Integer*2 
Integer*4 

Real 

Double Precision 


Complex 
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The last letter indicates how to access either the single 
argument of a l~argument operation or the second (right hand) 
argument of a 2-argument operation. For 2-argument 
Operations, the first (left hand) argument is always on the 
stack. The last letter can be one of the following: 


S -- indicates the argument is at the top of the stack 


C -- indicates that the following in-line word is the 
address of the argument 


P -- indicates that the following in-line word is the 
offset in the parameter list (pointed to by R5) which 
contains the address of the argument 


All of these routines are called using the R4 convention described 
Chapter 2. In addition, they all delete their stack arguments, return 
and preserve 


their result on the 
register 5 (R5). 


9.1.1 Exponentiation 


stack, 


the 


The exponentiation routines are as follows: 


Data Type 
Routine Base Exponent Result 
PWIIx$ I*2 I*2 I*2 
PWIJx$ I*2 I*4 I*4 
PWIIx$ I*4 I*2 I*4 
PWIJTx$ I*4 I*4 I*4 
PWRIx$S R*4 I*2 R*4 
PWRIxS R*4 I*4 R*4 
PWDIx$ R*8 I*2 R*8 
PWDJxS R*8 I*4 R*8 
RWRRxS R*¥4 R*4 R*4 
PWRDx$ R*4 R*8 R*8 
PWDRx$ R*& R*4 R*8 
PWDDx$ R*8 R*8 R*8 
PWCIx$ C*8 I*2 c*8 
PWCIJx$ C*8 I*4 C*8 
PWCCx$ C*8 C*8 C*8 


x is S, C, or P 


of general 
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NOTE 
This table of routines shows only the 
entry points called by the compiled 
code; it is not a complete list of all 
the supported forms of exponentiation. 
For example, a base of complex and an 
exponent of Real*4 is supported by 
converting the Real*4 to a complex 
number and calling the entry point that 
supports a base and exponent of complex. 
For a complete list of the supported 
forms of exponentiation, see the PDP-1l 


FORTRAN-77/RT-11 User's Guide. 


9.1.2 Complex Arithmetic Operations 
The following entries are used: 
ADCx$ -~ complex addition 
SBCx$ <= complex subtraction . 
MLCx$ -- complex multiplication 
DVCx$ -=- complex division 
TSCx$ -~ complex test for zero 
NGCx$ -= complex negation 
CMCx$ <== complex compare 


x is S, C, or P 


9.1.3 INTEGER*4 Arithmetic Operations 
The following entries are used: 

MLJx$ =-- Multiplication 

DVJx$ -=- Division 


x is S, C, or P 


$.1.4 Stack Swap Operations SWPxy$ 


These routines are used in conjunction with the out-of-line arithmetic 
operation entries when the order of evaluation causes the two 
arguments of the operation to be on the stack in reverse order. Entry 
names are of the form: 


SWPlrs$ 
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The number of words the left argument occupies: 1, 2, or 4— 


The number of words the right argument occupies: 1, 2, or 4. 


The two arguments are swapped on the stack. 


9.1.5 Character Operations 
These routines are called using the PC convention described in Chapter 
2, with the modification that a descriptor (length, address pair) is 
pushed on the stack for each argument. The two character operations 
are character assignment (entry point $CHASN) and character comparison 
(entry point $CHCMP). 
Character assignment is called as follows: 

1. Push the length of the destination (in bytes). 

2. Push the address of the first byte of the destination. 

3. Push the length of the source (in bytes). 

4. Push the. address of the first byte of the source. 

5. JSR PC,S$CHASN. 
On return, the stack arguments are deleted. 


Character comparison is called as follows: 


1. Push the length of the left side of the comparison operation 
(in bytes). 


2. Push the address of the first byte of the left side of the 
comparison operation. 


3. Push the length of the right side of the comparison operation 
(in bytes). 


4. Push the address of the right side of the comparison 
operation (in bytes). 


5. JSR PC,S$CHCMP. 


On return, the stack arguments are deleted and the condition codes are 
set for an unsigned branch (C and Z bits of the PSW are valid). 


9.2 ARRAY PROCESSING SUPPORT 
An Array Descriptor Block (ADB) is a data structure the compiler 
provides to describe an array. FORTRAN~77 compiled code uses ADBs for 
the following: 

® Array subscript calculations for dummy argument arrays 


® I/O calls that transmit an entire array 


OTHER COMPILED=-CODE SUPPORT ROUTINES 


® Array subscript limit checking when specified by the compiler 
/I command switch 


@® Virtual array load and store operations 


The compiler defines the constant parts of an ADB. The varying parts 
are initialized when the subprogram that contains the array 
declaration is executed. 


The offsets 


A.ASTR 


A.ASUM 


A.A0 


A.CWRD 


A.ST2ZB 


A.PLYA 


A.PLYV 


A.PWRD 


within the ADB are as follows: 


Actual base storage address (first element) or, for 
virtual arrays, the 64-byte block number of the array 
base in virtual storage. 


Assumed size array flag bit in code word A.CWRD. 


Zeroth-element address (address of A (0,0,0...0)). 
This offset is ignored for virtual arrays. 


Code word containing the number of dimensions, data 
type, element size, and information denoting whether it 
is an assumed size array: 


Assumed Size Data Type Number of Element 
Array Flag Dimensions Size 
1 bit 4 bits 3 bits 8 bits 


Number of bytes per array element (BPE). (Low byte of 
A.CWRD. ) 


First dimension span. (Other dimensions follow A.D1 
but are not named; that is, A.D1+2 is the second 
dimension span.) 


Total array size in bytes, A.SIZB = D1*D2*...Dn*BPE; 
or, for virtual arrays, the number of elements in the 
array. 


Addressing polynomial evaluated for the first element, 
polyA(L1,L2,...Ln). 


Addressing polynomial evaluated for the first element 
ef a virtual array, polyA(L1,L2,...Ln). 


Used for adjustable arrays. 2N 1l-bit fields denoting 


an adjustable/non~-adjustable bound. Encoding is 
left-justified as follows: 


Un Ln Un-1 Woe sc ul Ll not used 


Last upper bound. Other bounds are stored in front of 
A.UN but are not named; that is, A.UN-2 is the last 
lower bound, A.UN=-4 is the next-to-last upper bound, 
and so on. 
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The data type codes contained in A.CWRD are: 


A.LGC1l LOGICAL*1 (BYTE) 

A.LGC2 = LOGICAL*2 
A.LGC4 = LOGICAL*4 

A.INT2 = INTEGER*2 

A.INT4 = INTEGER*4 

A.REA4 = REAL*4 

A.REAS = REAL*8 (DOUBLE PRECISION) 
A.CMP8 = COMPLEX 

A.CHAR = CHARACTER 


A.HOLL Hollerith 


I/O transmissions also use these codes to denote the list item data 
type. 


The dimension spans (Di) for arrays are the sizes of each dimension: 
Di = upper bound (Ui)-lower bound (Li) + 1 


The compiled code uses dimension spans to determine the subscript 
value. The ADB retains the upper and lower bounds for each array. 
The bounds determine the size and shape of arrays. 


9.2.1 Adjustable Array Initialization 


Four routines are used for initializing the contents of ADBs for dummy 
argument adjustable arrays: MAK1$ for one-dimensional arrays, MAK2$ 
for two-dimensional arrays, MAKNS for arrays with three to seven 
dimensions, and MAKVS for virtual arrays. Only R5 is preserved by 
these routines. They are called as follows: 


1. Push the dimension bounds for any nonconstant elements onto 
the stack in order of their appearance in the array 
declarator. 


2. Push the base address of the dummy argument array passed in 
the subprogram call. 


3. Push the address of the array descriptor block onto the 
stack. 


4. Execute a call in the form of JSR PC, to one of the following 
routines: MAK1$, MAK2$, MAKNS, or MAKVS. 


5. On return, the stack arguments are deleted. 


9.2.2 Array Subscript Checking 


If the compiler switch option /I is in effect, each array reference 
will be checked to verify that the array element address is within the 
bounds established for the array by the array declarator. 
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The form of the call is: 
1. Push the array element address onto the stack. 
2. Push the address of the array descriptor block. 
3. Execute a call in the form of JSR PC,ARYCKS. 


This call preserves all registers. 


9.2.3 Virtual Array Processing 
Virtual array elements are processed by out-of-line calls in all 
cases. The OTS call returns the mapped virtual address of the array 
element. Either the value of the array element is loaded into a 
register for use or a value is stored into the array element. 
The form of the call is: 
1. Push the address of the array descriptor block on the stack. 
2. Move the indexing expression into RO. 
3. Call the routine: 
VRIxS, if /I was not specified 
VRTxCS$, if /I was specified 
where x is one of the following data type code letters: 
B - LOGICAL*1 
L - LOGICAL*2 
M ~- LOGICAL*4 
I = INTEGER*2 
J - INTEGER*4 
R -— REAL*4 
D -— REAL*8 
C - COMPLEX*8 
4, On return, the stack argument is deleted, RO contains the 


virtual address of the element, and all other registers are 
preserved. 


9.2.4 Notes on ADB Usage 


The following defines the array~addressing polynomial function, polyA, 
for a three-dimensional array: 


DIMENSION A(L1:U1,L2:U2,L3:U3) 
polyA(I,J,K)=((K*D2+J) *D1+I) *BPE 


A.AO is defined as A.ASTR ~ polyA(L1,L2,L3). 
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The address of an array element is then calculated as: 
address of A(i,j,k)=A.ASTRtpolyA(i,j,k) -polyA(L1,L2,L3) 
=A,A0+polyA(i,j,k} 


Array bounds checking consists of verifying that the array element 
address is both of the following: 


® Greater than or equal to the base address, A.ASTR 

® Less than the high address+1l, A.ASTR+tA.SIZB 
Note that only the complete subscript value is within the array; 
individual dimensions are not checked against their corresponding 
dimension bounds. 


For example, the FORTRAN statements 


SUBROUTINE X(A,N) 
DIMENSION I(100), A(10:N-1,N) 


cause the following ADBs to be created for I and A: 


No Di values since I is not 
an adjustable array 


- WORD 310 ; A.STIZB 
I.ADB: .WORD T ; A.ASTR 
«WORD I-2 ; A.AO 
- WORD 20402 ; A.CWRD 
‘ 
e 


» WORD 12 ; Ll = 10 
-WORD 0 ; Ul = Nel 
«WORD 1 ; L2 =1 
«WORD e] ; U2 =WN 
«WORD 120000 ; A.PWRD 
-WORD 0 ; A.SIZB 
A.ADB: «WORD 0 ; A.ASTR 
«WORD 0 3; A.AO 
»WORD 31004 ; A.CWRD 
«WORD 0 ? DL 
«WORD 0 : D2 


9.3 GO TO STATEMENT SUPPORT 


The following sections describe the code that results from the 
compilation of FORTRAN-77 GO TO statements. 


9.3.1 Computed GO TO Statement Support 
A computed GO TO statement is compiled to a call as follows: 
1. Push the address of the label list. 


2. Convert the index expression value to INTEGER*2 (if needed) 
and push it on the stack. 


3. Execute a call in the form of JSR PC,CGOS. 


OTHER COMPILED-CODE SUPPORT ROUTINES 


4. On return, the stack arguments are deleted. 
5. If the index value is less than 1 or greater than the number 


of labels in the list, no transfer takes place and all 
registers are preserved. 


9.3.2 Assigned GO TO Statement Support 
An assigned GO TO statement is compiled to a call as follows: 
1. Push the assigned label address. 
2. Push the address of the allowed label list. 
3. Execute a call in the form of JSR PC,AGOS. 
4. On return, the stack arguments are deleted. 


5. If the assigned label value is not in the list, no transfer 
takes place and all registers are preserved. 


9.3.3 Label List Argument Format 


The label list for the assigned or computed GO TO statement has the 
following form: 


ADDR: .»WORD n 
»WORD labell 
» WORD labeln 


9.4 TRACEBACK CHAIN PROCESSING 


The traceback chain for error processing is a linked list constructed 
dynamically on the run-time stack. 


The work area contains the list head and the current statement number. 
The list head is at offset W.NAMC, with global name SNAMC. The 
current statement number is at offset W.SEQC, with global name S$SEQC. 
The list elements are 4-word blocks located on the stack in the 
following form: 
SNAMC -> pointer to next 
statement number 


program unit 


name in RAD50 


9~9 
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The list head points to the currently active program unit entry. This 
entry contains the following items: 


® The currently active program unit name in Radix-50 


® The current statement number in the calling program at the 
time of the call 


® A pointer to the calling program list: block 


Note that the statement number pertains to the program unit of the 
NEXT list block, since the current program unit statement number is 
maintained at the fixed global location $SEQC. 


If the compiler command option /S:NAM, /S:BLO, or /S:ALL is specified, 
a call is made to link the program unit name into the OTS name list 
used for producing the error traceback information. The form of the 
call is: 


1. Push the last three letters of the entry name (represented in 
Radix-50) onto the stack. 


2. Load the first three letters of the entry name into register 
R4. 


3. Execute a call in the form of JSR R4,@$NAMS. 


The current statement number, SSEQC, is set to zero. The traceback 
information is maintained on the execution stack. When the program 
unit returns, it returns to the NAMS$ routine, which resets the stack, 
removes the name chain link, and returns control to the caller. 


If /S:NAM is specified, the current statement number is not updated 
($SEQC remains zero). 


If /S:BLO is specified, the current statement number is periodically 
updated by the compiler to contain the negative of the statement 
number, for instance, -21 for statement 21. 


If /S:LIN is specified, the current statement number is updated on 
every statement, maintaining a positive number. 


APPENDIX A 
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000 W.SEQO” | = $OTSVA, $SEQC 
002 PLNBUF i 
004 CHNATB i 
006 ~FILETRB i (Points to LUB's) 
010 QELEM i 
012 DEVEDR i 
“014 ~FREESP i 
016 ENMENK | 
0920 RICNLS i 
022 FMTAD | 
024 FILPTR i 
026 W.NAMC | i = $NAMC 
030 W.LUNS 1 = .NLUNS 
032 WMO) Hl 
bee se em es e 
034 W.BFAD | 
036 W.BLEN i 
040 W.BEND i 
“042 RECIO. i 
PRIYA nn aera + 
044 EOLBUF | 
046 FMICLN Hl 
050 BLBUF i 
052 PSCALE i 


FORTRAN IMPURE AREA DEFINITIONS 


a i ee a ae a as a a oe a oe + 
054 W.LICP/FSTKP- | 
ae es a sa ate a te ae + 
056 W.LICB/FSTK 
NOARG=FSTK 
PARLVL=FSTK+2 
NUMFLG=FSTK+4 
16-word scratch area | 
overflow word 
| 
trmnnn ene won = + 
120 FMTRET | 
oe ae i a ee a ce a ae ne a ee + 
122 VARAD | 
Se ee ae ee a a tt tm + 
124 TSPECP | 
t------ Stee eteeteeleeeteteaatd + 
126 TYPE | 
et tt hs so + 
130 REPCNT/UNFLGS | 
ae ee ew wn + 
132 LENGTH | 
a en ee en at en me Oo Oo a ee ee + 
134 D | 
ee a a ane a et ee et ee ew ee + 
136 ITEMS2 | 
oe ae ee ee ee oe oe es a a ee + 
140 DOLFLG (byte) [ 
ee oe A a ht te + 
141 W.ELEM (byte) { 
oe A ee a So te ot + 
142 COUNT | 
ak ae el a ee wa se + 
144 RACNT 
FMTLP= RACNT 
UNCNT= RACNT 
W.UOPN= RACNT 
eh OF SO ES A eh the em ae + 
146 DENCWD | 
eee ce ore om ca ae a a ee ee ee ee me om + 
150 W.PC | 
eh tn ee + 
152 EXADDR | 
A at a ee ts a + 
154 ENDEX | 
a ne ee et ew + 
156 ERREX | 
ae ee ee ae ee a ee oe em fe 
160 W.ECNT | = SERCNT 
tee---- + 
162 W.ERNM 
te A A a Sa ee + 
164 W.LIMT | 
Se A OO Ha ne HG AD A ce nd my nw et + 
166 W.OPFL | 
ee ee ee ne CA ee A He + 
170 W.ERLN | 
teen + 
172 W.ERLE 
a a ee ee en ee ee a ee ee + 
174 W.ERTB 
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se ee A Se ee Sn SO SO SOU SD Se We ne mo nem ne ce ea + 
176 W.OBFL | 
ee ee a ee ec oe ne ee ee a co ae Oe a + 
200 W.OBFH 
a a a ee ek ee ee ee + 
202 W.ERUN | 
ee a ee wh swe + 
204 W.FPST | 
Ae a AO om + 
206 W.EXT | 
ee ee + 
210 W.PNTY (byte) | 
a ar ne a ee A hh as ae + 
211 W,IOEF (byte) | 
i a ee ee ee a ee ae ot + 
212) W.RS | 
ee ee ee a ae a ee a ee ee ee + 
214 W.VTYP | 
a a ee a a + 
216 W.RECL 
W.KNUM=W. RECL 
W.KDSC=W. RECL 
W.SLEN=W. RECL 
fan re nr ee ee ene + 
220 W.RECH/W.SADR = | 
ee OO SS Sh es me + 
222 W.FPPF (byte) | 
me ce a a i a a ee wt ts a a + 
223 W.DFLT (byte) | 
a eh et ee to a cae + 
224 W.LNMP | 
a a ee a a aa en ne on oe + 
226 W.PRNT | = $PRINT 
OS ce ee ee ee + 
230 W.TYPE | . 7 §$TYPE 
st Sh nh Se AOE A mH HEY EDS + 
232 W.ACPT | = SACCPT 
ae ane he nt Se a ee he + 
234 W.READ | = $READ 
SP ee ee Se se pa oe + 
236 W.MOTY | 
et ee th ht eH ne + 
240 W.DEVL 
> ae te a Se a ee oe ae + 
242 W.CPXF (byte) | 
eh ne eh ht ttn oe + 
243 W.NULL (byte) | 
se es eee ee a a ee a a a an ah a nt + 
244 W.FDBL | 
a a a te + 
246 W.FDB2 | 
ee ce oe coe sa me es et eS + 
250 W.EXST | 
ee a a hk DS + 
252 W.FNML | 
ee eS A A as nh a + 
254 W.WDB | 
ee A ne ae ee ae ce ac on ee + 
256 W.TKLM | 
ha ee + 


FORTRAN IMPURE AREA DEFINITIONS 


260 W.WNLO 
ee a a a a wm + 
262 W.WNHI | 
ee ee a we el ts + 
264 W.KREF | 
a ke es ke ae ee a ee + 
266 W.KMAT (byte) | 
Se ee or ee ee an OF Oe + 
267 W.KDTP (byte) | 
Se a a + 
270 W.LUNO (byte) | 
a a a te a he me OP + 
271 W.SPBN (byte) | 
a SH a a + 
272 W.PLIC | 
ee Se a a A a a A hk tet + 
274 W.TBST | 
ne ae oe 0 eo a + 
276 W.TBFN | 
ee a me ee ee ae ee ee oh ks + 
300 W.ERXT | 
oe A A Nt tk OH ot tt + 
302 W.ERLG | 
ee me en ea ee cae ae + 
304 W.FIN | 
a ee a ee ek ke te ee + 
306 W.FPER | 
HS tm ee + 
310 W.NAM | 
oe a eS Se se a a ot oe + 
312 Ww.IOxT | 
ee arn oe ee tt ce te ae ae ee oe ae ee + 
314 TTYRWF | 
2 eo a ea Sk et ee a et i te + 
316 NBLOCK | 
So ea oe oe ca eS SD SS Sn ah Ht ce + 
320 8 words extra 
| 
ae a ee ae ce ee a eo oe ce ee et fe 
340 W.END | 
AE CS SO ED CY A SO AD ES ES AE st i WD wom: eh ne csney + 


APPENDIX B 


FORTRAN LOGICAL UNIT CONTROL BLOCK DEFINITIONS 


B.1 LUB CONTROL BLOCK FORMAT 


he ee ee eee eee + : 
| 000 D.FDB | Status word 0 
fan nn nn + 

| 002 BUFRAD | 

$e een ee ee + 

| 004 BUFRSZ | 

fa en er ee en ne nee + 

| 006 DEVNM | File Name Block (FNB) 
fmm re er ee ee + 

| 010 FILNM(1) | 

hae ee ee ee ee + 

| 012 FILNM(2) | 

tannnn = = + 

| 014 EXTEN | 

$a a ee re me ee em + 

| 016 DATAD 
rn + 

| 020 BUFNO (byte) | 

tone ne a a ee ee ee ee eee + 

| 021 CHNLNO (byte) | 

tow ene nn ee + 

| 022 ASSOCV/D.AVAD- | 

ha a ee ee + 

| 024  RECSZ/D.RSIZ | 

fre ee ee + 

| 026 BLKNO | 

ha ee nn a ee + 

| 030 FILSZ | 

he a at a ae an a ee et to a oe me + 

| 032 HIGHBL | 

tonne ne = + 

| 034 D.STA2 | Status word 2 
He wee ee ee + 

| 036 D.STAT | Status word 1 
He ee + 

| 040 RECMAX | 

+e re ee ee = + 

}] 042 D.RCCT/D.RCNM | 

Fn a ee ee + 

| 044 D.RCC2/D.RCN2 | 

$o------- = + 

| 046 F.LUN | 

tan nnn nnn ee + 


FORTRAN LOGICAL UNIT CONTROL BLOCK DEFINITIONS 


B.2 STATUS BIT DEFINITIONS 


D.FDB - Status Word 0 


BUPBIT 
MWRB 
SCR 
UNLIST 
LISTMD 
LSTFMT 
RDO 

TT 

OLD 
RDBFWT 
LP 
OPNBIT 
EOF 

KB 
WRITE 


D.STAT - Status Word 1 


DV. FIX 
DV.FNB 
DV.DFD 
DV.FAK 
DV. FACC 


DV.OPN 
DV.VAR 
DV.SEG 
DV. FMP 
DV.UFP 
DV.ASGN 


DV.CLO 
DV. FRE 
DV.RW 


D.STA2 = Status Word 2 


DV.AI4 


DV.RSZ 
DV.CC 

DV.SPL 
DV.DEL 
DV.RDO 
DV.UNK 
DV.OLD 
DV .NEW 
DV.SCR 
DV.APD 
DV.SAV 
DV.BN 


=1 

=2 

=4 

=10 
=20 
=40 
=100 
=200 
=400 
=1000 
=2000 
=4000 
=10000 
=20000 
=100000 


=2 
=4 
=10 
=20 
=40 


=200 
=400 
=1000 
=2000 
=4000 
=10000 


=20000 
=40000 
=100000 


=2 


=4 

=10 
=20 
=40 
=400 
=1000 
=2000 
=4000 
=10000 
=20000 
=40000 
=100000 


DOUBLE BUFFERING FLAG BIT 
MODIFIED RANDOM BLOCK FLAG 
'SCRATCH' FLAG FOR RT SYSLIB 
FORCED FOR FORTRAN OUTPUT 
FORCED FOR LISTING OUTPUT 
FILE IS OPEN FOR LISTING FORMAT 
‘READONLY' FLAG FOR RT SYSLIB 
FILE OPEN TO CONSOLE TERMINAL 
‘OLD' FLAG FOR RT SYSLIB 

READ BEFORE WRITE 

FILE OPEN TO LP: 

‘OPEN' FLAG FOR RT SYSLIB 

END OF FILE REACHED 

FILE OPEN TO KB 

WRITES HAVE BEEN PERFORMED 


RECORD TYPE ='FIXED' 
FILE NAME BLOCK INITIALIZED 
DEFINE FILE DONE DIRECT ACCESS UNIT 
PARTIAL FDB FLAG FOR ENCODE/DECODE 
FILE ATTRIBUTES: 0 - DEFAULT 

1 - CALL FDBSET 
UNIT OPEN MUST BE 200'S BIT 
RECORDTYPE='VARIABLE' 
RECORDTYPE='SEGMENTED' 
FORMATTED ACCESSED UNIT 
UNFORMATTED ACCESSED UNIT 
FILESPEC: 0 - USE DEFAULT 


1 - FROM CALL ASSIGN 
CLOSE IN PROGRESS 
FREE FORMAT ALLOWED 
CURRENT OPERATION: Q - READ 

1 - WRITE 


DEFINEFILE ASSOC VAR: 0 - I*2 

1 - I*4 
EXPLICIT RECORDSIZE SPECIFIED 
EXPLICIT CARRIAGE CONTROL SPECIFIED 
DISPOSE = 'PRINT' 
DISPOSE = 'DELETE' 


READONLY 
TYPE = 'UNKNOWN' 
TYPE ‘OLD! 


TYPE = 'NEw' 
TYPE = 'SCRATCH' 
ACCESS ='"APPEND' 
DISPOSE='SAVE' 
BLANK = 'NULL' 


APPENDIX C 


OTS SIZE SUMMARY 


This appendix is a guide to the approximate sizes of all the modules 
in the PDP-11 FORTRAN-77 OTS. Modules are grouped by related function 
and identified by the TITLE, as shown in linker's storage maps. All 
object module sizes are shown in decimal words. 


C.1 MODULES ALWAYS PRESENT 
C.1.1 File I/O Support 


Module Name Module Size in 
Decimal Words 


$CLOSE Close files 135 
SERRLO Error message construction 303 
SERRMO Error message I/O 37/97 
SERRPT Error control processing 252 
SERTXT Error message text 1004/0 
SFCHNL LUB processing 49 
SFPERR FPP interrupt processor 58 
SFPUTI FPP utilities 37 
SOTI OTS initialization 84 
$R50 Radix-50 to ASCII conversion 40 
SSAVRG Register save comroutine 59 
SVINIT Virtual array initialization 65 


SOTV OTS Impure area (by PSECT) 


$SAOTS Common work area 224 
SSOBF1 Object time format buffer 32 
$SOTSI Mixed OTSs trap 2 


C.2 COMMON I/O SUPPORT 


The following modules are common to all I/O operations. 


Module Name Module Size in 
Decimal Words 

SCONVI Integer format conversions (1) 225 
SCONVL Logical format conversions (1) 49 
SCONVR Real format conversions (1) 680 
SCONVZ Octal and hexadecimal format 

conversions (2) 335 
$FIO Format processor 1045 
SFMTCV Run-time format compiler 532 


SIOARY Array I/O transmission 


71 


OTS SIZE SUMMARY 


Module Name Module Size in 
Decimal Words 


SIOELE I/O element transmission 164 
SIOVAR Virtual array I/O transmission 94 
SLSTI List-directed input processor 484 
SLSTO List-directed output processor 282 
LICSB$ List-directed input constant storage block (3) 129 


(1) Loaded only if needed, or if list-directed or run-time format 
processing is used. 

(2) Loaded only if needed, or if run-time format processing is used. 

(3) Loaded only if list-directed input processing is used. 


C.3 COMPILED-CODE CHARACTER SUPPORT 


Module Name Module Size in 
Decimal Words 


SCHASN Character assignment 42 
$CHCMP Character comparison 65 


C.4 SERVICE SUBROUTINES 


Module Name Module Size in 
Decimal Words 


$DATE DATE 68 
SERRSE ERRSET 72 
SERRSN ERRSNS : 22 
SERRTS ERRTST 22 
SEXIT EXIT 13 
SIDATE IDATE 29 
STRADS IDATE50 15 
SRSOAS RSOASC 6 
SRAD50 RAD50 ll 
SRAN RAN 19 
$RANDO Random number generation 53 
SRANDU RANDU 18 
SSECND SECNDS 49 
STIME TIME 41 
$USERE USEREX 1i 


Cc.5 OPTIONAL MODULES 


Module Name Module Size in 
Decimal Words 


S$CONVR Real format conversions(FPP version) 587 
SFPPUT EIS version 7 
$SHORT Null error message text 1 
SERRLO Null error message logging 1 
SMLJ EIS version 57 
$DVI EIS version 74 
SJMOD EIS version 25 


OTS SIZE SUMMARY 


Module Name Module Size in 
Decimal Words 


soTv OTS Impure Area (by PSECT) 


SSAOTS Common work area 266 
SSOBF1 Run-Time format buffer 32 
$$OTSI Mixed OTSs traps 2 
SNAMS 1 


APPENDIX D 


PROGRAM SECTION DESCRIPTIONS 


This appendix describes the program sections (PSECTs) used by the OTS. 
PSECTs are named segments of code or data. The attributes associated 
with each PSECT direct the linker when constructing an executable job 
image. 


$SOTSI ~~ OTS Instructions 


This PSECT contains all of the executable code in the OTS except the 
formatted and list~-directed I/O processors. When RT-11's USR is set 
to SWAP, it is this region that shares space with the USR. This PSECT 
has the attributes: R0O,I,CON,LCL. 


S$SOTSD - OTS Pure Data 


This PSECT contains all of the read-only pure data in the OTS except 
the formatted and list-directed I/O data. This PSECT contains 
constants and dispatch tables used by the code in $SOTSI. It has the 
attributes: RO,D,CON,LCL. 


SSAOTS ~-- OTS Impure Storage 


SSAOTS contains the FORTRAN work area impure storage associated with 
each job. It must be contained in the job's root segment and is 
pointed to by the contents of global symbol S$0TSV. A detailed 
description is contained in Appendix A. All references in this manual 
to “the work area" or "the FORTRAN work area" apply to this PSECT, 
which has the attributes: RW,D,CON,LCL. 


S$OBF1 ~~ Object-Time Format Buffer 


$$OBF1 defines the FORTRAN object time format buffer. The length is 
fixed at 64 (decimal) bytes. This area is pointed to by offsets 
W.OBFL (start address) and W.OBFH (end address+l) in the Work area. 
This PSECT has the attributes: RW,D,OVR. 


PROGRAM SECTION DESCRIPTIONS 


Format Conversion PSECTs 


The formatted and list-directed I/O processors minimize job size by 
loading only those format conversion modules referenced by the user's 
format specifications. Each module is in an independent PSECT and 
places a pointer to itself in a special PSECT used as a dispatch 
table. These PSECTs have the global (GBL) attribute to ensure that 
this collection of modules will be placed in the lowest common segment 
of an overlaid job. 


The PSECTs are named as follows: 


$$FIOC -- contains the format processor code and the 
list-directed processor code 

S$FIOD ~~ contains the format and list-directed processor pure 
data 

$$FIOI -- contains the integer conversions 

SSFIOL -- contains the logical conversions 


SS$FIOR -- contains the floating-point conversions 
SSFIOS -- contains the list-directed constant storage block 
$SFIOZ -- contains the octal and hexadecimal conversions 


S$$FIO2 -- contains the conversion dispatch table 


